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The  U.S. . Coast  Guard  is  presently  studying  candidate  advanced  marine  vehicles  (AMVs)  to 
rep. ace  its  aging  cutters.  Several  programs  have  been  initiated  to  evaluate  marine  vehi¬ 
cles  that  best  fulfill  required  missions.  These  programs  include  development  of  decision 
aids,  test  and  demonstration  of  existing  AMVs,  and  development  of  state-of-the-art  point 
designs. 


The  Research  and  Development  Center  has  developed  measures  of  effectiveness  of  AMVs  in 
search  and  rescue,  enforcement  of  laws  and  treaties,  marine  environmental  protection,  and 
military  readiness  missions.  The  MOEs  are  based  on  a  probability  of  mission  success  and 
can  be  calculated  based  on  existing  data  bases  or  test  data.  These  MOEs  provide  a  quanti- 
-ative  assessment  of  a  craft's  ability  to  perform  a  mission  under  specified  operational 
and  environmental  constraints.  An  example  is  presented  of  how  to  use  the'MOEs  in  the  proc¬ 
ess  of  evaluating  candidate  craft  to  replace  existing  cutters  or  procure  new  ones. 


Craft  characteristics  of  AMVs  were  updated  based  on  state-of-the-art  technology.  They 
were  then  incorporated  in  the  Cutter  Resources  Effectiveness  Evaluation  (CREE)'  romouter 
model,  which  was  converted  from  FORTRAN  IV  to  BASIC  to  allow  it  to  run  on  an  HP-9845  inter¬ 
active  desktop  computer .  Volume  II  is  a  user's  guide  for  the  program. 
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METRIC  CONVERSION  FACTORS 
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Approximate  Conversions  to  Metric  Measures 


Symbol 

When  You  Know  Multiply  By 

To  Find  Symbol 

co 

— 

"  * 

LENGTH 

In 

Inches  ♦  2.5 

centimeters 

cm 

It 

feet  30 

centimeters 

cm 

yd 

yards  09 

meters 

m 

— z 

ml 

miles  t.6 

kilometers 

km 

AREA 

0) 

In2 

square  inches  6.5 

square  centimeters 

cm2 

- 

n2 

square  feet  0.09 

square  meters 

m2 

— z 

yd2 

square  yards  0.8 

square  meters 

m2 

**E 

ml2 

square  miles  2.6 

square  kilometers 

km2 

U1 

-E 

acres  0.4 

hectares 

ha 

-E 

MASS  (WEIGHT) 

— 

oz 

ounces  28 

grams 

g 

— E 

lb 

pounds  0.45 

kilograms 

kg 

4* 

** 

short  tons  (2000  lb)  0.9 

tonnes 

t 

VOLUME 

tsp 

teaspoons  5 

milliliters 

ml 

CO 

Ibsp 

tablespoons  15 

milliliters 

ml 

(I  oz 

fluid  ounces  30 

milliliters 

ml 

- z 

c 

cups  0.24 

liters 

1 

JZ 

pt 

pints  0.47 

liters 

1 

•— E 

qt 

quarts  0.95 

liters 

1 

to 

“ 

gal 

gallons  3.8 

liters 

1 

_ E 

it3 

cubic  feet  0.03 

cubic  meters 

m3 

yd3 

cubic  yards  0.76 

cubic  meters 

m3 

_ z 

TEMPERATURE  (exact) 

—a 

°F 

Fahrenheit  5/9  (after 

Celsius 

°C 

— E 

temperature  subtracting 

temperature 

8'  - 

32) 

_ z 

-Km  m  = 

2.54  (exactly).  For  other  exact  conversions 

and  more  detailed  tables. 

<0 

(A 

*E 

see  NBS  Mlsc.  Publ.  266,  Units  of  Weights  and  Measures.  Price  $2.25. 
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Approximate  Conversions  from  Metric  Measures 


Symbol 

When  You  Know 

Multiply  By 

To  Find 

Symbol 

LENGTH 

mm 

millimeters 

0.04 

inches 

In 

cm 

centimeters 

0.4 

inches 

In 

m 

meters 

3  3 

feet 

ft 

m 

meters 

1.1 

yards 

yd 

km 

kilometers 

0  6 

miles 

ml 

AREA 

cm2 

square  centimeters 

0.16 

square  Inches 

In2 

m2 

square  meters 

1.2 

square  yards 

Vd2 

km2 

square  kilometers 

0  4 

square  miles 

ml2 

ha 

hectares(  10,000  m2) 

2.5 

acres 

MASS  (WEIGHT) 

g 

grams 

0.035 

ounces 

oz 

kg 

kilograms 

2.2 

pounds 

lb 

t 

tonnes  (1000  kg) 

1.1 

short  tons 

VOLUME 


ml 

milliliters 

0.03 

fluid  ounces 

fl  OZ 

I 

liters 

0.125 

cups 

C 

1 

liters 

2.1 

pints 

Pt 

1 

liters 

1  00 

quarts 

qt 

1 

liters 

0.26 

gallons 

m3 

cubic  meters 

35 

cubic  feet 

ft3 

m3 

cubic  meters 

1.3 

cubic  yards 

yd3 

TEMPERATURE  (exact) 

°C 

Celsius 

9/5  (then 

Fahrenheit 

°F 

temperature 

add  32) 

temperature 

„  32  9fi| 

.6 

2 12UF 

-40  F  0  I40  80 

1  1  1  1  11  1  iPri  1  ,i°r1 1 

■  ,  i1?0. 

1  t  it  1  f  Jl  i 

-40°C  -20  A  20  3 

^0  '  00  '  1 

30  100°C 
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exchange.  The  United  States  Government  assumes  no  liability 
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this  report. 

The  contents  of  this  report  reflect  the  views  of  the  Coast 
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SECTION  1 
INTRODUCTION 


The  Cutter  Resources  Effectiveness  Evaluation  (CREE)  model  program  is  pres¬ 
ently  written  for  interactive  use  on  a  Hewlett  Packard  9845B  desktop  com¬ 
puter.  Before  beginning  any  computer  program  runs,  it  is  suggested  that  the 
user  read  the  original  user's  guide,  "A  Guide  for  Users  and  Analysts,"  written 
by  the  Coast  Guard  R&D  Center,  report  number  CG-D-48-78.  The  user  is  advised 
to  pay  particular  attention  to  chapter  3,  "Program  Inputs,"  for  a  description 
of  the  numbers  which  the  user  is  required  to  input.  The  format  descriptions 
of  the  numbers  are  not  applicable  to  this  version  of  the  program.  Reference 
to  section  3  of  Volume  I  of  this  report  should  also  prove  useful.  The  method 
of  input  is  described  in  detail  in  sections  3.2  and  4.1  of  this  manual. 
Appendices  A,  B,  C  and  D  contain  listings  for  the  main  program  and  its  three 
sections.  Appendix  E  contains  the  listing  for  "ALPHA,"  the  scenario  genera¬ 
tion  program. 

It  is  also  advisable  that  the  user  be  somewhat  familiar  with  HP -9845 B  computer 
operation  for  ease  of  use  in  running  this  program. 


1 


SECTION  2 
PROGRAM  OVERVIEW 


The  purpose  of  the  CREE  model  is  to  evaluate  advanced  vehicles  in  a  variety  of 
Coast  Guard  scenarios.  The  model  is  deterministic.  The  CREE  program  is 
broken  into  four  major  sections:  "MAIN,"  SCHAR,"  "SPTPOS,"  and  "SPRPOS." 
"MAIN"  is  the  executive  program.  "SCHAR"  is  concerned  with  generating  the 
craft  characteristics  based  on  the  user  inputs.  "SPTPOS"  calculates  the  prob¬ 
abilities  of  success  of  the  various  tasks  which  can  be  performed  by  the  craft. 
"SPRPOS"  is  used  to  calculate  the  task  completion  probabilities  of  the  partic¬ 
ular  scenario  input  by  the  user. 

The  original  CREE  program  was  modularized  in  this  fashion  as  is  the  HP  9845 
version.  In  the  HP  version,  the  program  is  also  broken  into  the  three  major 
files  where  each  file  contains  the  necessary  subroutines  and  functions  for 
that  module  to  run  as  a  separate  entity.  This  structure  is  necessary  because 
the  maximum  number  of  program  lines  in  memory  at  any  one  time  is  significantly 
less  than  the  entire  program  would  occupy.  It  is  therefore  necessary  to  have 
each  module  contain  the  routines  it  needs  to  operate  in  the  file  of  the  same 
name  and  then  to  overlay  the  module  during  execution.  This  overlay  process 
slows  execution  time,  but  is  required  for  CREE  to  run  properly.  It  would  be 
advantageous  to  place  the  program  on  disk  in  order  to  decrease  run  time  if  a 
disk  is  available. 

The  following  convention  is  used  in  this  manual: 

1.  When  the  user  is  required  to  actuate  one  of  the  HP  command  keys,  this 
will  be  described  by  saying  (e.g.): 

Press  EXECUTE  key. 
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2.  When  the  user  is  required  to  type  in  a  response  or  command,  this  will 
be  described  as  (e.g. ) : 

Type  GET  "MAIN" 

The  response  must  be  typed  in  exactly  as  it  appears,  including  quote 
marks,  if  any.  In  order  to  inform  the  computer  that  the  input  is 
ready  to  be  processed,  it  will  be  necessary  to  press  either  the  CONT 
key  or  the  EXECUTE  key  after  typing  the  message.  The  appropriate  key 
to  press  will  always  be  noted  in  the  text. 


SECTION  3 
PROGRAM  SETUP 


3.1  TAPES 


Two  data  cartridges*  are  needed  to  run  the  program.  Tape  #1  contains  the  four 
program  modules  and  tape  #2  contains  the  necessary  data  files.  In  order  to 
ensure  that  the  proper  files  and  tapes  are  used,  a  catalog  of  the  files  is 
shown  in  figure  1. 


PROGRAM  TAPE  (Tape  #1) 

NAME 

T15 

PRO  TYPE 

2 

REC/FILE 

BYTES/REC 

ADDRESS 

MAIN 

DATA 

17 

256 

5 

SCHAR 

DATA 

162 

256 

22 

SPTPOS 

DATA 

223 

256 

184 

SPRPOS 

DATA 

359 

256 

407 

DATA 

TAPE  (Tape  #2) 

NAME 

T15 

PRO  TYPE 

2 

REC/FILE 

BYTES/REC 

ADDRESS 

MRB 

DATA 

1 

372 

5 

PWB 

DATA 

1 

372 

7 

UTB 

DATA 

1 

372 

9 

MLB-44 

DATA 

1 

372 

11 

MLB -52 

DATA 

1 

372 

13 

ANB-55 

DATA 

1 

372 

15 

ANB-63 

DATA 

1 

372 

17 

WPB-82 

DATA 

1 

372 

19 

WP8-95 

DATA 

1 

372 

21 

WMEC21 

DATA 

1 

372 

23 

WMEC27 

DATA 

1 

372 

25 

WHEC37 

DATA 

1 

372 

27 

ALPHA 

DATA 

12 

256 

29 

SCEN1 

DATA 

1 

25000 

41 

FIGURE  1.  FILE  CATALOG 


*Such  as  Scotch  brand  DC  100 A. 
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3.2  SCENARIO  GENERATION 


In  order  to  generate  a  scenario  for  a  particular  run,  it  is  necessary  to  run 
the  scenario  generation  program  (ALPHA),  which  is  contained  on  the  data  tape 
(tape  #2).  The  user  should  consult  CG-D-48-78  to  obtain  the  guidance  and 
forms  necessary  for  proper  generation  of  a  scenario.  Note  that  some  effort 
must  be  expended  in  development  of  a  scenario  before  the  user  is  ready  to 
implement  the  scenario  in  the  computer.  The  description  of  the  kind  of  inputs 
which  are  used  can  be  found  in  the  aforementioned  user's  guide.  The  program 
is  run  as  follows: 

1.  Place  the  data  tape  in  the  HP-98458  tape  drive  labeled  "T14". 

2.  Type  GET  "ALPHA :T14" 

3.  Press  the  EXECUTE  key. 

4.  When  the  program  is  in  memory,  the  user  should  press  the  RUN  key 

on  the  keyboard. 

The  first  input  to  be  entered  is  the  scenario  file  name.  (This  name  must  be 
unique  or  an  error  will  occur.)  In  that  event,  press  the  STOP  key  on  the  key¬ 
board  and  then  the  RUN.  key  again,  this  time  using  a  unique  file  name. 


The  scenario  file  generated  will  be  placed  on  the  data  tape  that  was  inserted 
into  the  tape  drive  labelled  "T14".  At  the  completion  of  this  program,  a  cat¬ 
alog  check  of  the  tape  will  show  the  new  file  name  on  the  tape. 

It  is  important  to  note  that  once  this  scenario  file  is  created,  the  operator 
does  not  have  to  re-create  it  to  run  the  same  scenario.  The  file  is  accessed 
by  the  CREE  program  through  user  inputs  at  the  proper  time. 

When  you  have  generated  the  scenario  file,  you  are  now  prepared  to  execute  the 
CREE  program. 
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SECTION  4 

CREE  RUN  PROCEDURES 


If  it  was  necessary  to  create  a  scenario  file  and  the  data  tape  is  not  in  tape 
drive  "T14",  then  place  the  data  tape  in  drive  "T14"  and  the  program  tape  in 
drive  "T15". 

Then  type  the  system  instruction  GET  "MAIN"  and  press  the  EXECUTE  key.  When 
the  tape  has  run  and  the  program  is  loaded  into  memory,  simply  press  the  RUN 
key  to  begin  program  execution. 

The  CREE  program  is  "Menu  Driven"  and  the  user  will  be  asked  to  input  his 
choices  at  each  stage. 

The  first  user  choice  is  whether  to  use  an  existing  Coast  Guard  craft  in  the 
evaluation  or  to  develop  a  new  set  of  craft  characteristics.  The  first  dis¬ 
play  the  user  will  see  will  be  the  question: 

DO  YOU  WANT  EXISTING  (1)  OR  NEW  (2)  COAST  GUARD  CRAFT? 

In  response,  the  user  should  type  the  selected  response  (either  1  or  2),  and 
then  press  the  CONT  key. 

If  the  operator  elects  to  use  an  existing  craft,  the  menu  shown  in  figure  2  is 
displayed.  A  choice  is  made  by  selecting  the  appropriate  craft  code  and 
information  is  taken  from  the  data  tape.  When  a  user  chooses  an  existing 
craft,  empirical  data  is  read  from  the  data  tape  and  the  user  is  not  required 
to  input  length,  displacement,  or  fuel  fraction.  The  only  inputs  required  in 
that  case  are  the  distribution  selections.  The  distribution  menu  choices  are 
shown  starting  with  figure  9. 
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CRAFT-CODE 

CRAFT 

101 

MRB  26’ 

102 

PW8  32' 

103 

UTB  41' 

104 

MLB  44' 

105 

MLB  52* 

106 

ANB  55' 

107 

ANB  63' 

108 

WPB  82' 

109 

WPB  95' 

110 

WMEC  210' 

111 

WMEC  270' 

112 

WHEC  378' 

FIGURE  2.  EXISTING  CRAFT  MENU 


If  the  operator  wishes  to  evaluate  a  new  craft,  one  not  currently  in  the 
fleet,  the  menu  in  figure  3  is  displayed. 


CRAFT -CODE 

CRAFT 

10 

HYDROFOIL,  SUBMERGED  FOIL 

11 

HYDROFOIL,  SURFACE  PIERCING 

20 

ACV  -  LOW  PRESSURE /LENGTH  RATIO 

21 

ACV  -  HIGH  PRESSURE /LENGTH  RATIO 

30 

SES  (SURFACE -EFFECT  SHIP) 

40 

PLANING  CRAFT 

50 

CATAMARAN 

60 

SWATH 

70 

HYBRID 

80 

CONVENTIONAL  CRAFT 

FIGURE  3.  NEW  CRAFT  MENU 


A  choice  of  craft  is  made  by  selecting  the  appropriate  craft  code. 


Once  a  new  craft  choice  has  been  made,  the  operator  must  specify  the  craft 
size  by  selecting  either  a  length  or  a  displacement  indicated  by  the  menu 
shown  in  figure  4. 


FOR  PROPOSED  NEW  CRAFT  THE  USER  CAN  CHOOSE  EITHER 
A  LENGTH  (1)  OR  A  DISPLACEMENT  (2). 

INPUT  1  OR  2? 


FIGURE  4.  LENGTH  OR  DISPLACEMENT  MENU 
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If  the  operator  chooses  to  specify  craft  length,  he  must  input  a  value  for  the 
length  within  the  acceptable  ranges  shown  in  figure  5. 


CRAFT 

ACCEPTABLE  LENGTH  (FT) 

HYDROFOIL,  SUBMERGED  FOIL 

50-250 

HYDROFOIL,  SURFACE  PIERCING 

50-250 

ACV ,  LOW  PRESSURE /LENGTH  RATIO 

50-250 

ACV ,  HIGH  PRESSURE /LENGTH  RATIO 

30-350 

SES 

40-500 

PLANING 

40-250 

CATAMARAN 

40-135 

SWATH 

30-400 

HYBRID 

40-135 

CONVENTIONAL 

50-400 

FIGURE  5.  ACCEPTABLE  CRAFT  LENGTH 


If  the  operator  would  rather  specify  craft  displacement,  he  must  make  a  choice 
from  the  acceptable  values  presented  in  figure  6. 


CRAFT 

ACCEPTABLE  DISPLACEMENT  (TONS) 

HYDROFOIL,  SUBMERGED  FOIL 

10-1000 

HYDROFOIL  SURFACE  PIERCING 

10-1000 

ACV,  LOW  PRESSURE /LENGTH  RATIO 

10-1000 

ACV,  HIGH  PRESSURE/LENGTH  RATIO 

10-1000 

SES 

10-10000 

PLANING 

10-1000 

CATAMARAN 

10-140 

SWATH 

10-10000 

HYBRID 

10-140 

CONVENTIONAL 

30-3500 

FIGURE  6.  ACCEPTABLE  CRAFT  DISPLACEMENT 


Whether  the  operator  specified  displacement  or  length,  he  must  make  the  fol¬ 
lowing  menu  choices. 

The  operator  must  select  an  appropriate  maximum  desfgn  speed  for  his  craft, 
which  are  shown  in  figure  7. 
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CRAFT 

HYDROFOIL,  SUBMERGED  FOIL 
HYDROFOIL,  SURFACE  PIERCING 
ACV,  LOW  PRESSURE /LENGTH  RATIO 
ACV,  HIGH  PRESSURE/LENGTH  RATIO 
SES 

PLANING 

CATAMARAN 

SWATH 

HYBRID 

CONVENTIONAL 


MAXIMUM  DESIGN  SPEED  (KNOTS) 

40-50 

30-40 

50-70 

40-60 

30-50 

35-45 

30-40 

15-25 

30-40 

15-40 


FIGURE  7.  ACCEPTABLE  CRAFT  DESIGN  SPEED 


The  operator  must  then  choose  the  acceptable  fuel  fraction  for  this  craft  (see 
the  original  user’s  guide),  as  shown  in  figure  8. 


PLEASE  INPUT  ACCEPTABLE  FUEL  FRACTION 
ACCEPTABLE  FUEL  FRACTION  RANGE  IS  (.2-. 8) 

FIGURE  8.  ACCEPTABLE  FUEL  FRACTION 

The  next  choice  the  operator  has  is  to  select  the  appropriate  visibility  dis¬ 
tribution,  tow  distribution,  and  sea  state  distribution  as  shown  in  fig¬ 
ures  9,  10,  and  11,  respectively. 


VISIBILITY 

DISTRIBUTION 

NUMBER 

DISTRIBUTION 

DESCRIPTION 

GOOD 

VISIBILITY 

FAIR 

POOR 

1 

VERY  GOOD 

0.9 

0.1 

0.0 

2 

GOOD 

0.7 

0.2 

0.1 

3 

GOOD  TO  FAIR 

0.5 

0.3 

0.2 

FIGURE  9.  VISIBILITY 

DISTRIBUTION 
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CUMULATIVE  PROBABILITY  OF 
DISPLACEMENT  OF  TOWED  CRAFT 


TOW 

DISTRIBUTION 

NUMBER  0.0  0.2 

1  0.5  1.0 

2  0.7  2.0 

3  1.0  4.0 

4  2.0  6.0 

5  10.0  20.0 


0.4 

0.6 

0.8 

1.0 

2.5 

7.0 

10.0 

50.0 

4.0 

10.0 

30.0 

100.0 

7.0 

20.0 

60.0 

500.0 

20.0 

50.0 

80.0 

1000.0 

50.0 

100.0 

300.0 

10,000.0 

FIGURE  10.  TOW  DISTRIBUTION 


SEA 

AVERAGE 

STATE 

OF 

DISTRIBUTION 

SEA  STATE 

NUMBER 

DISTRIBUTION 

1 

0.5 

2 

1.0 

3 

1.5 

4 

2.0 

5 

2.5 

6 

3.0 

7 

3.5 

8 

4.0 

9 

4.5 

10 

5.0 

SEA  STATE 


0-1 

1-2 

2-3 

3-4 

4-5 

5-6 

1.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.55 

0.40 

0.05 

0.0 

0.0 

0.0 

0.20 

0.60 

0.15 

0.05 

0.0 

0.0 

0.20 

0.30 

0.35 

0.10 

0.05 

0.0 

0.10 

0.30 

0.30 

0.15 

0.10 

0.05 

0.5 

0.15 

0.25 

0.40 

0.10 

0.05 

0.05 

0.10 

0.15 

0.35 

0.20 

0.15 

0.0 

0.05 

0.15 

0.25 

0.35 

0.20 

0.0 

0.0 

0.05 

0.20 

0.45 

0.30 

0.0 

0.0 

0.0 

0.10 

0.30 

0.60 

FIGURE  11.  SEA  STATE  DISTRIBUTION 

This  completes  the  input  choices  for  the  operator.  The  model  will  take 
approximately  15  minutes  to  run  for  the  scenario  chosen. 


During  the  linking  of  routine  "SPRPOS,"  one  more  input  is  required  from  the 
user,  which  is  the  scenario  file  name  selected  for  this  run.  The  program  will 
print  the  message: 


TYPE  NAME  OF  SCENARIO  FILE  DESIRED 

The  user  should  respond  by  typing  in  the  name  of  a  scenario  file  developed 
using  the  program  "ALPHA”  as  described  in  section  3.2.  A  sample  scenario  is 
suppMed  with  the  data  tape  (tape  #2)  and  can  be  accessed  for  preliminary 
trials  of  the  program  by  typing  "SCEN1"  in  response  to  the  above  question  and 
pressing  the  CONT  key. 
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Other  miscellaneous  inputs  will  be  necessary  at  selected  points  of  the  run. 
These  inputs,  for  the  most  part,  control  whether  or  not  a  hard  copy  of  the 
program  outputs  will  be  made  using  the  HP  9845 1  s  thermal  printer.  These  do 
not  require  special  note  except  for  the  outputs  from  the  individual  sorties. 
Each  sortie  will  produce  a  page  of  output,  and,  depending  on  the  complexity  of 
the  scenario,  this  may  run  into  a  considerable  number  of  pages  and  require  a 
considerable  amount  of  time.  As  such,  an  option  is  available  to  suppress  the 
hard  copies  of  all  the  individual  sortie  outputs.  A  note  of  explanation 
appears  on  the  screen  at  the  appropriate  time. 

At  the  end  of  a  run,  the  program  asks  the  user: 

WOULD  YOU  CARE  TO  RUN  AGAIN  ( Y/N) ? 

Responding  with  "Y"  begins  the  entire  run  process  again.  Responding  with  "N" 
terminates  the  session. 
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APPENDIX  A 


3  ! 

10  ! 

13  ! 

20  ‘ 

23  i 

30  ! 

260 
263 
270 
273 
230 

283  ! 

230 

233 

300 

303 

310 

3X3 

320 

323 

330 

335 

340  ! 

345  ! 

330  ! 

333 

360 

363 

370 

373 

388 

383 

390 

395 

400 

403 

8) , Psh 1 
410  ! 

413  ! 

420  I 
423  ! 


CREE  PROGRAM 


CUTTER  RESOURCE  EFFECTIVENESS  EVALUATION  CCREE) 

OPTION  BASE  1 

INTEGER  I ,  K,  Inf  i  1  e,  Casnum,  II  eng 
INTEGER  Ssi , 3*2, Group, Inst 
INTEGER  Eng 

INTEGER  Vi sdtb, Towdtb, Task no l, Rat e6 
DIM  Ssprbd<8),Crfn»SC3t] 

DIM  Cwspd<4> , Sf ceng<4> , Sfccf <4> , Tot sfc  <4) , Sfc gal <4) 

DIM  Hput i 1 <4>,Fuelrt<4), Endur <  4) , Range  <  4 ) 

DIM  Fuelr2<4), Eng<4) , Ssprob< 8, 10) 

DIM  Tnrad<4) , Mot i on<4> , EngnamS< 2) , Engnra<2) 

DIM  Cftna»<3) 

DIM  Cc<19),Df <l9),Ls<19),Mn<19),Tu<19), Tarry <22, 2) 

DIM  Mo< 19) , Tpos< 19),Sk<l9),Go<4),Mnacc<4) , Mnbk g< 4) , Mnt ur < 4) 

DIM  Su<4),L1s<4),Xx<4),Auess<10),Towdis<6,3), Vmxu is<3),Cgfr20<!2> 
DIM  Cgfrl0<12),Visdis<3,3),Go«in<4) 

DIMENSIONS  FOR  SPRPOS  ROUTINE 

DIM  Taskno<<23,4)C233,Crpnm*<29) 

SHORT  Nnode<22>, Visdsl<3,3>, Visds2<3,3) 

SHORT  Unajpb < 1000) , PhposC 1000) , PathtmC 1000) , IpthfuC 1000) 

SHORT  Bet a<  20 ,40) 

SHORT  T posmx<23) 

SHORT  Timlst<100),Fue1st<100),Prblst < 100) 

SHORT  Gppl*x<30,30),Oucnn»x<30,30),Mint im<38) , M1nfue<30) 

SHORT  Mast er<23, 4) , Count  <23, 4) , Totcnt  <23, 4) 

SHORT  I  no  <23, 4)  ,  Imrate<40)  ,  I m t sk n < 40 > , I rapt sk  < 40 , 40 > 

SHORT  Mt  ask  <  40 ) 

COM  Cf tnaraS, Ssaog, Specd<4),Mfulrt<4),Touspd,Gpdatl<40,2),Gpdit2<40t 
st<106), INTEGER  Id  t sp, Idspd, Ptr 

THE  FOLLOWING  IS  THE  MAIN  PROGRAM  MODULE  WHICH  CALLS  THE  THREE  MAJOR 
SUBROUTINES.  NAMELY  SCHAR, SPTPOS, SPRPOS, 


427  Begin:  DISP  "LINKING  IN  SCHAR  MODULE" 

428  PRINTER  IS  16 

430  LINK  "SCHAR", 473, 433 

433  GOSUB  Schar 

436  DISP  "LINKING  IN  SPTPOS  MODULE" 

440  LINK  "SPTPOS" , 473, 443 

445  GOSUB  Sptpos 

446  DISP  "LINKING  IN  SPRPOS  MODULE” 

430  LINK  "SPRPOS", 473, 433 

453  GOSUB  Sprpos 

460  INPUT  “ UOULD  YOU  CARE  TO  RUN  AGAIN  <Y/N>?  ”,AnsS 

463  IF  Ans*«"Y"  THEN  Begin 

470  END 

CONVERSION  -  THE  CREE  PROGRAM  WAS  CONVERTED  FROM  FORTRAN 

TO  HP  BASIC  <2/82  -  3/32)  BY  ANALYSIS  1  TECHNOLOGY 
INC,  MAJOR  CONTRIBUTORS  WERE  CHRIS  HEIDTMAN  AND 
PATTY  ROY. 

MAIN  PROGRAM  -  READS  CRAFT  INPUT  DATA  AND  CALLS  SUBROUTINES 
TO  COMPUTE  CRAFT  CHARACTERISTICS 

INPUTS  ARE:  1.  CRAFT  TYPE 

2.  CRAFT  DISPLACEMENT  <IN  TONS) 

OR  CRAFT  LENGTH  <IN  FEET) 


300 

330 

333 

348 

543 

350 

535 

560 

363 

370 

373 

380 


1 


A-l 


383 

398 

393 

800 

603 

610 

615 

620 

625 

630 

633 

648 

645 

630 

633 

660 

663 

670 

673 

680 

685 

690 

693 

700 

705 

710 

713 

720 

723 

738 

733 

740 

745 


3.  DESIGH  SPEED  <IN  KNOTS) 

4.  FUEL  FRACTION  -  OF  TOTAL  PAYLOAD 

3.  VISIBILITY, TOW, DEPTH, AND  SEA  STATE  DISTRIBUTION 
NUMBERS 

CRAFT  AND  ENGINE  ARE  IDENTIFIED  BY  CODES,  AS  FOLLOWS: 

CRAFT  CODES: 

10.  HYDROFOIL-SUBMERGED  FOIL 

11.  HYDROFOIL-SURFACE  PIERCING 

20.  AIR  CUSHION  VEHICLE  -  LOW  ?/ L 

21.  AIR  CUSHION  VEHICLE  -  HIGH  P/ L 
30.  SURFACE  EFFECT  SHIP 

40.  PLANING  CRAFT 

30.  CATAMARAN 

60.  SWATH 

70.  HYBRID  VESSEL 

80.  CONVENTIONAL  CRAFT 

101.  MRB 

102.  PWB  32 

103.  UTB  41 

104.  MLB  44 
103.  MLB  52 

106.  ANB  33 

107.  ANB  63 

108.  UPB  82 

109.  UPB  93 

110.  WMEC  210 

111.  WMEC  270 

112.  WHEC  373 

ENGINE  CODES: 

1.  GAS  TURBINE 

2.  DIESEL 


A-2 
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475 

480 

483 

490 

493 

300 

303 

310 

513 

320 

323 

330 

533 

340 

343 

330 

333 


*##*■*  3  C  H  ft  R  *****#**~**********+***-+**44 


THE  FOLLOWING  IS  THE  START  OF  THE  CRAFT  CHARACTERISTICS  PROGRAM 
THE  PROGRAM  REQUIRES  THE  USER  TO  INPUT  THE  FOLLOWING  INFORMATION 
VIA  MENU  CHOICES;  l.  CRAFT  TYPE 

2.  CRftFT  LENGTH 
OR  3.  CRAFT  DISPLACEMENT 

4,  CRAFT  SPEED 

3.  VISIBILITY  DISTRIBUTION 

6.  TOW  DISTRIBUTION 

7.  SEA  STATE 
3.  FUEL  FRACTION 

Schar:  !  STARTING  POINT 

DATA  10,128,11,128,20,123,21,123,30,123,40,123,30,123,60,123 
DATA  70,123,30,123,101,123,102,123,103,123,104,123,103,123 
DATA  108,128, 187, 128, 108, 128,109, 128, 118,123, Ul, 128, 112, 123 


360 

DATA 

I  •  i 

,  .33, .20, .20, . 10, 

. 03, .03,3 

363 

DATA 

0., 

,  . 40, . 60, . 30, . 30, 

.  13,  .  10,  •' 

370 

DATA 

0., 

, .05, . 13, .33, .30, 

.23, . 13, . 

373 

DATA  0 * , 0 

• , .05, . 10, . 15 

, .40, .33, .23, .20, . 10 

380 

DATA  0 • , 0 

. ,0. , .03, . 10, 

• 10, .20, .33, .43, .30 

383 

DATA  0. ,0 

. ,0. ,0. , .03, . 

03, . 13, .20, .30, .60 

390 

DATA  0 . , 0 

.  ,  0.  ,  0.  , 0.  , 0. 

,0. , 0 . , 0 . ,0. 

393 

DATA  0. ,0 

.  ,  0  •  ,  0  •  ,  0.  ,  0. 

,0. ,9. ,0. ,0* 

600 

DATA  '<GT)','<DE>' 

605 

RESTORE 

610 

MAT  READ 

T  arry 

613 

MAT  READ 

S*prob 

620 

MAT  READ 

Engna/n* 

623 

Menu:  PRINT  PAGE 

630 

* 

INPUT  “DO 

YOU  WANT  EXISTING< 1 )  OR  PROPOSED  NEU<2>  COAST  GUARD  CRAFT?", An 

633 

IF  Ans-1 

THEN  L12 

640 

IF  Ans*2 

THEN  L 1 3 

643- 

PRINT  "INVALID  INPUT, 

PLEASE  TRY  AGAIN.  PRESS  CONT  TO  GO  ON. - 

630 

PAUSE 

633 

GOTO  Menu 

660 

L13:  PRINT  " 

CRAFT-CODE 

CRAFT- 

663 

PRINT 

670 

PRINT  " 

10 

HYDROFOIL, SUBMERGED  FOIL'* 

673 

PRINT  * 

1  1 

HYDROFOIL, SURFACE  PIERCING“ 

680 

PRINT  “ 

20 

ACV  -  LOW  PRESSURE/LENGTH  RATIO1* 

633 

PRINT  " 

21 

ACV  -  HIGH  PRESSURE/LENGTH  RATIO- 

698 

PRINT  “ 

30 

SES  C SURFACE-EFFECT  SHIP)" 

693 

PRINT  “ 

40 

PLANING  CRAFT" 

700 

PRINT  “ 

30 

CATAMARAN" 

703 

PRINT  M 

60 

SWATH- 

710 

PRINT  “ 

70 

HYBRID" 

713 

PRINT  " 

80 

CONVENTIONAL  CRAFT" 

720 

GOTO  L 1 4 

723 

L12: PRINT  PAGE 

730 

PRINT  “ 

CRAFT-CODE 

CRAFT" 

733 

PRINT 

740 

PRINT  • 

101 

MRB  26'" 

743 

PRINT  - 

102 

PWB  32'  " 

750 

PRINT  " 

103 

UT3  41'" 

733 

PRINT  - 

104 

MLB  44'" 

760 

PRINT  " 

193 

MLB  32'" 

733 

PRINT  " 

106 

ANB  33'" 

7^9 

PRINT  * 

107 

ANB  63'" 

773 

PRINT  - 

198 

WPB  32'" 

780 

PRINT  * 

109 

WPB  95'" 

793 

PRINT  ■ 

110 

WMEC  210'" 

790 

PRINT  " 

HI 

WMEC  279'" 

793 

PRINT  “ 

112 

UHEC  273'" 

B-l 


333  114: INPUT  " CHOOSE  ONE  OF  THE  ABOVE  CRAFT  BY  INPUTTING  CRAFT -CODE  « , Code 
303  ! 

310  !  NOW  SEE  IF  INPUT  VALUE  13  A  VALID  CRAFT  TYPE 

313  ! 

320  F 1  <3*0 

323  FOR  I»t  TO  22 

330  IF  Cod#<  >T arry  < 1,1)  THEN  L33 

333  F1g*l 

340  T  arry  < 1 , 2) *  133 

343  L33  J  NEXT  I 

830  IF  Flg*t  THEN  LU 

335  PRINT  “SORRY  INVALID  TYPE-CODE,  TRY  AGAIN!  PRESS  CONT  TO  GO  ON.  -  ' 

860  PAUSE 

363  GOTO  M#nu 

370  ! 

373  I  CHECK  TO  SEE  IF  CONVENTIONAL  CRAFT 
330  ! 

883  LI  1 : IF  Cod*>100  THEN  L51 
890  L13:PRINT  PAGE 

893  PRINT  -  FOR  PROPOSED  NEW  COAST  GUARD  CRAFT  THE  USER  CAN  CHOOSE  EITHER " 

900  PRINT  "A  LENGTH  <1>  OR  A  DISPLACEMENT  (2).“ 

903  PRINT 

910  INPUT  " INPUT  l  OR  2?  " ,  Ans 

913  IF  < Arts*  1 )  OR  <Ans«2>  THEN  L21 

920  PRINT  "  INVALID  ENTRY  TRY  AGAIN.  PRESS  CONT  TO  GO  ON.  * 

925  PAUSE 

930  GOTO  L13 

933  ! 

940  !  SELECT  DISP  OR  LENGTH  MENU. 

943  ! 

930  L21 :  IF  An*«2  THEN  Ld Up 
933  ! 

960  !  INPUT  LENGTH 

963  ! 

973  L23:PRINT  PAGE 

973  PRINT  USING 

N 

980  PRINT 

983  PRINT  USING 

30-230" 

990  PRINT  USING 

30-230" 

993  PRINT  USING 

30-230" 

1000  PRINT  USING 

30-330" 

1005  PRINT  USING 

40-300" 

1010  PRINT  USING 

40-230" 

1013  PRINT  USING 

40-133" 

1020  PRINT  USING 

30-400" 

1023  PRINT  USING 

40-133" 

1030  PRINT  USING 

30-400" 

1033  PRINT  CHR*< 

1040  L26: IMAGE  K 

1043  INPUT  "  CHOOSE  ACCEPTABLE  VALUE  IN  THE  RANGE  HI -LIGHTED "  , Leng 
1330  IF  <Leng<*530>  OR  <Leng>-30)  ''HEN  L31 

1035  PRINT  "UN-ACCEPTABLE  LENGTH  INPUT,  PLEASE  TRY  AGAIN.  PRESS  CONT  TO  GO 
ON" 

1360  PAUSE 

1363  GOTO  L23 


L26J"  CRAFT  ACCEPTABLE  LENGTH  <FT) 

L26;CHRS<Tarry<l,2>>, "HYDROFOIL,  SUBMERGED  FOIL 
L26;CHRS<T*i*ry<2f  2>>  ,  "HYDROFOIL,  SURFACE  PIERCING 
L26 ; CHRf <T*rry <3 , 2) > , " ACV ,  LOW  PRESSURE/LENGTH  RATIO 
L26;CHR*<Tarry<4,2>>, “ACV,  HIGH  PRESSURE/LENGTH  RATIO 
L26; CHR*< Tarry < 3 , 2) ) , “SES 
L26;CHRS<Tarry<6,2>  > , “PLANING 
L26; CHRS<Tarry<7,2)) , “CATAMARAN 
L26; CHRS< Tarry < 3, 2> ) . "SWATH  . 

L26 ; CHRS<  T  arry <9 , 2) ) , “HY3RID 
L26; CHRS < Tarry < 10,2)), "CONVENTIONAL 
128> 


B-2 


iara  L3i:Di*pi*0 
1073  GOTO  L41 
1080  ! 

1083  !  USER  HAS  CHOSEN  TC  INPUT  DISPLACEMENT 

1080  ! 

1083  Ldisp:  PRINT  PAGE 

1100  PRINT  USING  L26;CHR$< 123), "CRAFT  ACCEPTABLE 

DISPLACEMENT  (TONS)" 

1103  PRINT 

1110  PRINT  USING  L26; CHR$( Tarry < 1,2)), “HYDROFOIL,  SUBMERGED  FOIL 
10-1000" 

1113  PRINT  USING  L26; CHRS< Tarry <2, 2) ), "HYDROFOIL  SURFACE  PIERCING 
10-1000" 

1120  PRINT  USING  L26;  CHRrt ( Tarry<3, 2)  >  ,  " ACV,  LOW  PRESSURE/LENGTH  RATI.0 
10-1000" 

1123  PRINT  USING  L26; CHRS<Tarry<4, 2) ) f - ACV,  HIGH  PRESSURE/LENGTH  RATIO 
10-1000" 

1130  PRINT  USING  L26; CHR*<  Tarry <3, 2) ) , "SES 

10-10000" 

1133  PRINT  USING  L26; CHR$< Tarry < 6, 2)), "PLANING 
10-1000" 

1140  PRINT  USING  L26 ; CHR$< Tarry < 7 , 2 ) )  , "CATAMARAN 
10-140" 

1143  PRINT  USING  L26; CHPS< Tarry < 8 , 2> ), "SWATH 
10-10000" 

1130  PRINT  USING  L26;  CHfi*<Tarry<8, 2)  >  ,  "HYBRID 
10-140" 

1133  PRINT  USING  L26; CHRS<T-Lrry< 10,2)), “CONVENTIONAL 

30-3300" 

1160  PRINT  CHR$< 128) 

1163  INPUT  "CHOOSE  ACCEPTABLE  VALUE  IN  RANGE  H I -LI GHTED" , D i sp 1 
1170  IF  <Di spt  >*10)  AND  < D i sp l < *3300 >  THEN  L33 

1173  PRINT  "UN-ACCEPTABLE  DISPLACEMENT  INPUT.  PLEASE  TRY  AGAIN.  " 

1180  PRINT  "PRESS  CONT  TO  GO  ON. " 

1183  PAUSE 

1180  GOTO  Ldispl 

1185  L33:L*ng*0 
1200  L4i:PRINT  PAGE 

1203  PRINT  USING  126,* CHR*< 1 23> , "  CRAFT  MAXIMUM  DESIG 

N  SPEED  (KNOTS)" 

1210  PRINT 

1213  PRINT  USING  L26; CHRS( Tarry < l , 2) ) , "HYDROFOIL*  SUBMERGED  FOIL 
40-30" 

1220  PRINT  USING  L26;CHR$(Tarry<2, 2) ) , "HYDROFOIL,  SURFACE  PIERCING 

30-40" 

1223  PRINT  USING  L26; CHRSCTarry (3, 2) > , " ACV,  LOW  PRESSURE/LENGTH  RATIO 
30-70" 

1230  PRINT  USING  L2S; CHRS( Tarry<4, 2) ) , " ACV,  HIGH  PRESSURE/LENGTH  RATIO 
40-60" 

1233  PRINT  USING  L26; CHR*< Tarry < 3, 2) ) , "SES 

38-30" 

1240  PRINT  USING  L26; CHR$<Tirry<6, 2) ), "PLANING 

33-43" 

1243  PRINT  USING  L26; CHRS( Tarry < 7 , 2 )>,“ CATAMARAN 
30-40" 

1230  PRINT  USING  L26; CHR*(Tarry <3, 2) ) , "SWATH 

13-23" 

1233  PRINT  USING  L26 ; CHRS< Tarry ( 8 , 2) > , "HYBRID 
38-40" 

1268  PRINT  USING  L26 ; CHRS( Tarry < 1 0 , 2) ), "CONVENT  I ONfiL 
13-40" 

1263  PRINT  CHR$  < 128) 

1279  INPUT  "CHOOSE  ACCEPTABLE  VALUE  IN  RANGE  HI-LIGHTED  "  ,Dsp**d 
1273  IF  <  Dsp#*c  >* i 3)  AND  (Ds**pd<*60)  THEN  L4S 

1280  print  "UN-acceptable  speed  input,  please  try  again." 

1235  PRINT  "PRESS  CONT  TO  GO  ON." 
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1290 

1295 


PAUSE 
GOTO  L41 


1300  L43ZPRINT  PAGE 

1305  PRINT  "PLEASE  INPUT  ACCEPTABLE  FUEL  FRACTION14 

1310  INPUT  ’•ACCEPTABLE  FUEL  FRACTION  RANGE  IS  <  .  2-- 3>  "  , Fuf rc 

1315  IF  <Fuf rc  >*.2)  AND  <Fufrc<».3)  THEN  LSI 

1320  PRINT  "UN-ACCEPTABLE  FUEL  FRACTION  INPUT.  PLEASE  TRY  AGAIN." 

1325  PRINT  "PRESS  CONT  TO  GO  ON." 

1330  PAUSE 

1333  GOTO  L43 

1340  L31 1  PRINT  PAGE 


1343 

1350 


PRINT  "VISIBILITY 
PRINT  "DISTRIBUTION 


DISTRIBUTION 

DESCRIPTION- 


VISIBILITY" 


1333 

PRINT 

"NUMBER 

GOOD 

FAIR 

POOR- 

13S0 

PRINT 

1363 

PRINT 

"1 

VERY  GOOD 

0.9 

0.  1 

0.0" 

1370 

PRINT 

1375 

PRINT 

"2 

GOOD 

0.7 

0.2 

0.  I* 

1300 

PRINT 

1385 

PRINT 

"3 

GOOD  TO  FAIR 

0.3 

0.3 

0.2" 

1390 

PRINT 

1393 

PRINT 

•THREE  VISIBILITY-DISTRIBUTIONS 

ARE  AVAILABLE 

It 

• 

1400 

PRINT 

"FOR 

EXAMPLE,  VISIBILITY-DISTRIBUTION 

NO.  2, 

CALLED  GOOD, 

1403 

PRINT 

"70 

PERCENT  CHANCE  OF  GOOD  VISIBILITY, 

20  PERCENT  CHANCE 

1410 

1413 

1420 

Jsdib 

1423 

1430 


PRINT  "VISIBILITY  AND  10  PERCENT  CHANCE  OF  POOR  VISIBILITY- 
PRINT 

INPUT  "CHOOSE  AN  ACCEPTABLE  VISIBILITY-DISTRIBUTION  NUMBER  <1,2  OR  3)",V 


IF  CVisdtb-l)  OR  <V1sdtb-2>  OR  <V1sdtb-3>  THEN  L33 
PRINT  "UN-ACCEPTABLE  VISIBILITY-DISTRIBUTION  NUMBER 


, VI idtb 


1435 

PRINT  "PRESS  CONT  TO 

GO  ON" 

1440 

PAUSE 

1443 

GOTO  LSI 

1430 

L33: PR INT  PAGE 

1453 

PRINT  "TOW 

CUMULATIVE 

PROBABILITY  OF" 

1460 

PRINT  "DISTRIBUTION 

DISPLACEMENT 

OF  TOWED 

CRAFT- 

1465 

PRINT  "NUMBER 

0.0 

0.2 

0.  4 

0.6 

0.3 

1.0 

1470 

PRINT 

1473 

PRINT  "1 

0.5 

1.0 

2.5 

7.0 

10.0 

50.0 

1480 

PRINT  "2 

0.7 

2.0 

4.0 

10.0 

30,0 

100.0 

1483 

PRINT  "3 

1.0 

4.0 

7.0 

20.0 

60.0 

300.0 

1498 

PRINT  "4 

2.3 

6.8 

20.0 

30.0 

80.0 

1000.0 

1493 

PRINT  "3 

10.0 

20.0 

30.0 

100.0 

300.0 

10,000.0 

1380 
1303 
1310 
ION- 
1515 
1320 
1323 
1530 
1333 
owdtb 
1348 
EM  LSI 
1343 
1330 
1533 
13S8 


PRINT 

PRINT  "FIVE  TOWING- DISTRIBUTION  NUMBERS  ARE  AVAILABLE." 

PRINT  "FOR  EXAMPLE,  TOWING  DISTRIBUTION  H0.  t  INDICATES  AN  OPERATING  REG 

PRINT  "WHERE  NONE  OF  THE  CRAFT  TO  BE  TOWED  ARE  LESS  THAN  0.3  TON," 

PRINT  "20  PERCENT  OF  THE  CRAFT  TO  BE  TOWED  ARE  LESS  THAN  1.9  TON," 

PRINT  "40  PERCENT  OF  THE  CRAFT  TO  3E  TOWED  ARE  LESS  THAN  2.5  TONS,  ETC." 

PRINT 

INPUT  "CHOOSE  AN  ACCEPTABLE  TQWING-DISTRIBUTION  NUMBER  <1,2, 3, 4, OR  5>",T 
IF  <Towdtb»l)  OR  <Towdt&*2>  OR  <Toudtto-3>  OR  <Toudtb*4)  OR  <Towdtb*3)  TH 


PRINT  "UN-ACCEPTABLE  TQWING-DISTRIBUTION  NUMBER. 
PRINT  "PRESS  CONT  TO  GO  ON" 

PAUSE 
GOTO  L33 


PLEAO  GO  ON." 


13S3  LSI ZPRINT  PPGE 


1378 

PRINT 

*S£A 

AVERAGE" 

1373 

PRINT 

“STATE 

OF 

S 

E  A  S  T  A 

1580 

PRINT 

"DISTRI¬ 

SEA  STATE" 

1383 

PRINT 

BUTION 

DISTRI¬ 

1390 

PRINT 

"NUMBER 

BUTION 

0-1 

1-2 

2-3  3-4 

1393 

PRINT 

"  I 

0.3 

1.0 

0.0 

0.0  0.0 

4-3 
0.  0 


3-6" 

0.9" 


1600 

PRINT 

il 

'y 

1.9 

0.55 

0.40 

0.03 

0.0 

0.0 

0.0" 

1603 

PRINT 

II 

3 

1.3 

0.20 

0.60 

0.  13 

0.83 

0.0 

0.0" 

1610 

PRINT 

11 

4 

2.0 

0.20 

0.30 

0.33 

0.  10 

0.03 

0.0" 

1613 

PRINT 

3 

2.3 

0.  10 

0.30 

0.30 

0.  13 

0.  10 

0.05" 

1620 

PRINT 

* 

6 

3.0 

0.3 

0.  13 

0.23 

0.40 

0.  10 

0.05" 

1623 

PRINT 

* 

7 

3.5 

9.  03 

0.  10 

0.  13 

0.33 

0.20 

0.  13" 

1630 

PRINT 

il 

8 

4,0 

0.0 

0.05 

0.  13 

0.23 

0.33 

0.20" 

1633 

PRINT 

9 

4.3 

0.0 

0.0 

0.03 

0.20 

0.43 

0.30" 

1640 

1643 

PRINT 

PRINT 

II 

10 

3.0 

0.0 

0.0 

0.0 

0.  10 

0.30 

0.60" 

1630 

PRINT 

W 

TEN  SEA 

STATES  ARE 

AVAILABLE. " 

1633  INPUT  -CHOOSE  AN  RCCEPTRBLE  SEA-STATE  DISTRIBUTION  NUMBER  <1 - 1 0 > " , Sspdt b 
1668  IF  CSspdt b*l )  OR  <Sspdtb-2>  OR  <Sspdxb*3)  OR  <$spdtb*4>  OR  <Sspdtb*5)  TH 
EN  L63 

1663  IF  <Sspdtb*6>  OR  <Sspdtb*?>  OR  <3spdtb*8)  OR  <Sspdtb*9>  OR  ($spdtb*10)  T 
HEN  L63 

1678  PRINT  "UN-ACCEP TABLE  SER-STRTE  DISTRIBUTION" 

1673  PRINT  "PRESS  CONT  TO  GO  ON" 

1683  PAUSE 

1683  GOTO  L61 

1680  L63:Dphdtb*l 
1693  ! 

1700  !  FIND  DISCRETE  SEA  STATE  PROBABILITY  DISTRIBUTION 

1703  I 

1710  FOR  Ss 1*2  TO  9 

1713  Ss2*Ssl-l 

1720  Ssprbd<Ssl )*. 3*Ssprob<S*l , Sspdtb)+. 3*S*prob< Ss2 , Sspdt b ) 

1723  NEXT  Ssl 

1730  Ssprbd< 1  )*. 3*Ssprob< 1 , Sspdt b) 

1733  ! 

1740  !  START  OF  MAJOR  MODULE  CRAFT  CALCULATIONS. 

1743  ! 

1730  ! 

1733  !  COMPUTES  CRAFT  CHARACTERISTICS 

1768  ! 

1763  ! 

1770  IF  Cod*>*100  THEN  L3001 

1773  ! 

1780  !  COMPUTE  CHARACTERISTICS  FOR  HPWC 

1783  ! 

1790  IF  L#ng*0  THEN  L#ng*FNFl #ng<Cod#, Di spl > 

1793  IF  Displ*8  THEN  Di spl*FNFdi sp(Cod#, L#ng) 

I860  Lt ob*FNF1 tob<Cod# , L#ng) 

1893  3#aa*L#ng^L t  ob 

1810  Dt o 1 »FNFdt o 1 < Cod#, L#ng) 

1813  Draf *Dt o 1 *L#ng 

1820  D#ck*FNFd#ck  <Cod#, L#ng, 3#  am) 

1823  Us#! d*FNFus#l d<Cod#, Di spl ) 

1830  Fu# 1 cp*Fuf rc*Us# ! d 

1833  Cargcp*<  l-Fut'rc  )*Us# !  d 

1340  Towdsp*FNFtowds<Cod#, Di spl ) 

1843  Survi v*FNFsurvi <Cod#t L#ng) 

1939  Iiurvu*Suruiy 

1833  Hpbi ns*FNFHpbi n<Cod#f Di spl ) 

I860  Hpi  nst  *<Dsp##d/'FNFbsspd<Cod#)  >~3*Hpbi  ns 

1863  Hppton*Hp i nst/D1 spl 

1870  FOR  Rat #*l  TO  4 

1873  Eng<Rat#)*FNF#ng<Cod#, Rat#) 

1888  Cwspd<Rat #)*FNFcuspd<Cod#f Rat*,Dsp##d) 

1883  Fcxdsp*Cwspd<Rat#)^Dsp##d 

1390  ”ctbsp*Cuspd<Rat #>/FNFbsspdCCod#) 

1893  Hpf cx u*FNFhpf c t  < Cod# ,Rax#,Fctdsp,Fcxdsp) 

1509  IF  <Rat#*l)  OR  <Rat#*2)  THEN  Hput  i  KRat  *)»Hpf  ctu*Hp  i  nst 

1593  IF  <Rat#«3)  OR  <Rat*«4)  THEN  Hput  i  1  <Rat#)*Hpf ctu*Hp  i  nst 

<.910  S?c#ng<Rat # ) *FNFsfc  #nC  Eng  <Rat«),Hpinst) 

1913  Sfccf  <Rat#)*FNFsfccf  < Eng C Rat#)  ,  Hpt'ctu) 
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1920 

1923 

1930 

1933 

1940 

1943 

1950 

1933 

i960 

1963 

1970 

1973 

1980 

1983 

1990 

1991 
1995 
2000 
2085 
2010 
2013 
2020 
2023 
2030 
2035 
2048 
2045 
2030 
2033 
2068 
2063 
2070 
2873 
2088 
2083 
2090 
2993 
2100 
2103 
2110 
2115 
2123 
2123 
2130 
2133 

2149 
2143 

2150 
2133 
2160 
2163 
2170 
2173 
2130 
2183 
2190 
2193 
2203 
2203 
2210 
2213 
2220 
2223 
2230 
2233 
2248 


To  t  a  f «:  '  ft at  *  >  *3  f  c  * ng  <  R  at »  ')  4 $  f  c  c  f  <  R  it *  > 

Sf  cgal  <  R  at *  >  -Totsfc  R  at  *  ;  -*333/2248 
F«j*!  rt  < R  at  * ) -Hput  i  1  •:  R  it  *  >-Sfcgal  <  Rite) 

Fu*  1  r2<  Rat * ) -Fu*  t  rt  <  Rat *  > /Cuspd<Rat  * > 

Endur  <  R at  * )  -Fu*  1  c  p/  ( Fu*  \  r t  <  R  at *  >  /333  > 

Rang*<  R at  *> *Endur<Rat *>*Cwspd<Rat*> 
Tnrad<ftat*>*FNFtnr  adOCode,  Cwspd<Rat*.>  )/3 
Mot i on < Rat *  >*FHFmwt av  < Saprbd <  * ) , Cod*, D i ap 1 , R at  * ) 
NEXT  Rat* 

Hptnk  t  *Hppt  on/Cui*pd< 1 > 

IF  Cod*< 1 08  THEN  L 1 003 


L3081 : 


! 


READ 


Cgtyp**Cod*-i00 
IF  Code*101  THEN 
IF  Cod«-102  THEN 
IF  Cod*-103  THEN 
IF  Cod**104  THEN 
IF  Cod*-193  THEN 
IF  Cod*-106  THEN 
IF  Cod**l 07  THEN 
IF  Cod*-138  THEN 
IF  Cod*-189  THEN 
IF  Cod** 110  THEN 
IF  Cod**! 1 1  THEN 
IF  Cod** 112  THEN 


Fi 1 *5*aMRB : T  1 4  “ 

Fi 1*$*"PWB:T14" 

Fi  W*-"UTB:T14" 

Fi 1 e$*'*MLB-44 : T 1 4 " 
F i 1 *$*“MLB-32: T 1 4  " 
Fi  1*S-"ANB-33:T14H 
Fi  1**»"ANB-63:T14" 
Fi 1*<*"WPB-82:T14" 
Fi 1**-"WPB-95:T14" 
Fi l*S*-WMEC2i:T14" 
Fi 1*$*-WMEC27:T14- 
Fi 1 *S*"WHEC37: T14" 


ASSIGN  #1  TO  Fi 1*# 

#1 ;  L*ng,  Di spi , Dsp*«d, Fufrc , Ltob, B*am, Dtol , Draf , D*ck  , Us#l d, Fuel cp 

READ  #1 ;  Cange  p,  Towdsp,  Isurw,  Hpi  nst,Hppton,Hptnkt 

MAT  READ  #1 ; Cwspd, Eng, Hput i 1 , Fu* \ rt , Fu* 1 r2, Endur, Rang* 

ASSIGN  *  TO  #1 
FOR  1*1  TO  4 
Sf c*ng< I ) *8 
Sf ccf < I  )*0 
Tot*fc  <  I  )*0 
Sfcgal < I>*0 
Rat**I 


L5082: 

L3000: 

L1008: 


Motions  1 )*FNFmwt av<S*prbd<*> , Cod*, Diapl, Rate) 
IF  102  THEN  L3002 
TnradC  2 )*FNFtnrad<Cod*, Cwspd< I > )/3 
.GOTO  L3080 
Tnrad< I >*0 


NEXT  I 

IF 

Cod**10 

THEN 

IF 

Cod**t 1 

THEN 

IF 

Cod«-20 

THEN 

IF 

Cod«*21 

THEN 

IF 

Cod**30 

THEN 

IF 

Cod**48 

THEN 

IF 

Cod**50 

THEN 

IF 

Cod**60 

THEN 

IF 

Cod**78 

THEN 

IF 

Cod**80 

THEN 

IF 

Ccd**l0i 

THEN 

IF 

Cod**1 02 

THEN 

IF 

Cod** 103 

THEN 

IF 

Cod**t04 

THEN 

IF 

Cod** 193 

THEN 

IF 

Cod**106 

THEN 

IF 

Cod*- l 07 

THEN 

IF 

Cod**108 

THEN 

IF 

Cod**109 

THEN 

IF 

Cod*- 110 

THEN 

IF 

Cod**ll.t 

THEN 

IF 

Cod**l 12 

THEN 

IF 

Vi sdtb*i 

THEN 

Crfn***"HYDRGFOIL,  SUBMERGED  FOIL" 

Crf  r»m**"HYDRQFQ  IL,  SURFACE  P I ERC  I  NG  " 
CrfnN#*"PCV,  LOW  PRESSURE/LENGTH  RATI  0 " 
Crf nm#*  * RCV ,  HIGH  PRESSURE'LEHGTH  RATIO 
Crf  nwJ*  :’SES  " 

Crfn»** 44  PLANING  CRAFT" 

Crf  nm#*- CAT  AM  ARAN 44 

Crf nra*—" SWATH 14 

Crf nmS*"HYBR IB  VESSEL'* 

Crf nra*»" CONVENT I  ON RL  CRAFT" 

Crf nm<*" MRB  26'" 

Crf nm**" PWB  32'" 

Crfnm<*"UTB  41'" 

Crf  nm*-44  MLB  44'" 

Crf  nmS*4’ MLB  52'" 

Crf n*#*"RN3  33'" 

CrfnwS*"ANB  63'" 

Crf nm$*H WPB  32'" 

Crf ■" WPB  93'" 

Crfowf-^WMEC  210'" 

Crf  nm$*4,HMEC  270'" 

Crf  nm#*‘‘ WMEC  373'" 

Vi sd*2f»"VERY  GOOD" 
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2243 

IF  Visdtb*2 

2230 

IF  Visdtb=*3 

2233 

PRINT 

PAGE 

22E0 

INPUT 

"WOULD 

22S3 

IF  Anss*- Y" 

2270 

; 

2273 

Out f  i 1 *E 

2280 

Idi sp> 

■Di spl 

2233 

1 1  #ngi 

»L#ng 

2290 

Idspd»Dsp«*d 

2295 

PRINT 

PAGE 

2300 

PRINT 

USING  i 

2303 

L2: 

IMAGE 

1 3X ,  X 

2310 

PRINT 

2313 

PRINT 

USING  1 

2320 

PRINT 

2325 

IF  Cod. >100 

2339 

PRINT 

USING  i 

2333 

L3: 

IMAGE 

18X,X, 

2340 

GOTO  L3 

2343 

L4: 

PRINT 

USING  1 

2330 

LE: 

IMAGE 

18X, X, 

2333 

L3: 

PRINT 

USING  1 

23E0 

L10S 

IMAGE 

1 8X , X, 

23E3 

PRINT 

USING  1 

2370 

L20: 

IMAGE 

1 8X , X , 

2373 

PRINT 

USING  1 

2380 

L30: 

IMAGE 

1 8X , X , 

2383 

PRINT 

USING  1 

2390 

L40: 

IMAGE 

1 8X , X , 

2393 

PRINT 

2400 

PRINT 

2403 

PRINT 

USING  1 

2410 

PRINT 

2413 

PRINT 

USING  I 

2420 

L30: 

IMAGE 

13X, X, 

2423 

PRINT 

USING  1 

2430 

L60: 

IMAGE 

13X, X, ; 

2433 

PRINT 

USING  1 

2440 

L70: 

IMAGE 

13X,X,i 

2443 

PRINT 

USING  1 

2450 

L8d: 

IMAGE 

13X , X, 

2433 

PRINT 

USING  1 

24E0 

L90: 

IMAGE 

1 3X, X, 

24E3 

PRINT 

USING  1 

2470 

L100: 

IMAGE 

13X, X, 

2473 

PRINT 

USING  1 

2480 

LI  Id: 

IMAGE 

1 3X , X , 

2483 

PRINT 

USING  1 

2490 

L120; 

IMAGE 

13X, X , 

2493 

PRINT 

USING  1 

2300 

L130: 

IMAGE 

1 3X , X , 

2303 

PRINT 

USING  1 

2310 

L140: 

IMAGE 

13X, X, 

2313 

PRINT 

USING  1 

2320 

L130: 

IMAGE 

13X, X, 

2323 

PRINT 

USING  1 

2338 

L1E0: 

IMAGE 

13X,K, 

2333 

PRINT 

USING  1 

2340 

Li  70: 

IMRGE 

13X, X , 

2343 

PRINT 

USING  1 

2330 

L133: 

IMAGE 

1 3X , X , 

2333 

PRINT 

USING  1 

23S0 

L190: 

IMAGE 

1 3X , X , ' 

2363 

PRINT 

USING  t 

2370 

L200: 

IMAGE 

i3x,x, ; 

2  THEN  Visds2**"G0QDM 


L2|  “CRAFT  CHARACTERISTICS" 


L2;  " 


♦»MQDULE  INPUTS**" 


THEN  L4 

L3; “CRAFT  TYPE  " , Crf nm# 


LS ; "CRAFT  TYPE" , “COAST  GUARD" , Crf nmS 
9 X,X, IX, K 

HO?  "DISPLACEMENT",  Idisp,  "TONS" 

4X, ED, IX, X 

L20;  "LENGTH”,  I  Wng,  "FEET* 

1 0X , ED , IX, X 

L30; -DESIGN  SPEED-, Idspd, "XNOTS” 

4X , ED , IX, X 

L40 ; "FUEL  FRACTION", Fufrc 
3X,4D.2D 

L2;-  **CRRFT  PARTICULARS**'1 

L30; “LENGTH* , L#ng , "  FEET" 

22X,ED.D,2X,K 

LS0; “BEAM* , Beam , “FEE T" 

24X, ED- ID, 2X, X 

L70; “DRAFT*, Draf , • FEET  * 

23X, ED. 1 D , 2X , K 

L88; “LENGTH/BEAM  RATIO-, Ltob 
12X,3D.2D 

L90J “DRAFT/LENGTH  RATIO*, Dtol 
1 IX, 3D. DD 

LI  00; “DISPLACEMENT* , D1 spl, "TONS" 

1  EX, ED. 1D,2X,K 

LI  10; “SURVIVABILITY-, Isurvu, “SEA  STATE” 

14X, 7D , 4X, X 

L128; “TOWS  VESSELS  UP  TO* , Towdsp, -  TONS  - 
10X, SB. ,3X,X 

L130; “USEABLE  DECX  AREA  ", D*ck , ” SQUARE  FEET” 

1 1 X, ED . ,3X,K 

Li 40; “CARGO  CAPACITY” , Cargep, "TONS" 

14X, ED. 1D,2X,X 

L130; -FUEL  CAPACITY* , Fu#1 cp, "TONS" 

13X,ED. ID,2X,X 

L1E0; "USEFUL  PAYLOAD* , Us# ! d, "TONS* 

1 4X , ED . 10, 2X, X 

L170; -  INSTALLED  POWER" , Hp 1 nst , -HORSE  POWER" 

13X, ED. , 3X , X 

L180; "POWER  TO  WEIGHT", Hppton, "HP/TON" 

13X, ED. 1 D, 2X, X 

LI 90; “TRANSPORT  EFFICIENCY" , Hptnk  t , - HP/TON-KNOT” 

9X , 3D . 2D , IX, X 

L208; "RANGE  AT  CRUISE  SPEED" , Rang*<  2 ) , "NAUTICAL  MILES' 

•y  U  ■-  TS  ^  u 
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2373 

2330 

2383 

2390 

2393 

2600 

2685 

2610 

2615 

2620 

2623 

2630 

2633 

2640 

2645 

2630 

2635 

2663 

2665 

2678 

2673 

2680 

2685 

2699 

2695 

2790 

2793 

2710 

2715 

2720 

2725 

2730 

2733 

2740 

2745 

2733 

2735 

2760 

2765 

2770 

2773 

2790 

2733 

2790 

2795 

2800 

2905 

2S10 

2815 

2920 

2825 

2930 

2833 

2840 

2843 

2830 

2333 

2860 

2065 

2970 

2873 

2S80 

2885 

2990 

2393 

2900 


PRINT 

USING 

L219: 

IMAGE 

13X,K 

PRINT 

PRINT 

PRINT 

PRINT 

USING 

PRINT 

PRINT 

USING 

L220: 

IMAGE 

29X ,  K 

PRINT 

USING 

L230: 

IMAGE 

29X ,  K 

PRINT 

PRINT 

USING 

1233: 

IMAGE 

»,  10X 

FOR  I« 

•1  TO 

PRINT 

USING 

L236« 

IMAGE 

t.K.  3! 

i 

NEXT  I 

PRINT 

PRINT 

« 

PRINT 

PRINT 

USING 

U240: 

IMAGE 

1 0XP  K 

PRINT 

USING 

L230: 

IMAGE 

10X,K 

PRINT 

USING 

L260: 

IMAGE 

13X ,  K 

PRINT 

USING 

L270: 

IMAGE 

10X,K 

PRINT 

USING 

L280: 

IMAGE 

1 0X  |  K 

PRINT 

USING 

L290: 

IMAGE 

10X ,  K 

PRINT 

USING 

L300: 

IMAGE 

10X,  K 

PRINT 

USING 

L310: 

IMAGE 

10X,K 

PRINT 

USING 

L320: 

IMAGE 

1 0X ,  K 

PRINT 

PRINT 

11 

PRINT 

. 

PRINT 

USING 

L330: 

1 

IMAGE 

10X,K. 

L202 1 : 

f  CONTINUE 

L9999 : 

RETURN 

♦♦CRAFT  PERFORMANCE**" 

=>NK"  , “CRUISE” , "REDUCED" , "ON” 
< , 3X , K 

•ED”, “SPEED”, "SPEED”, “SCENE” 


CALMWATER" 


IN  SELECTED  SEAWAY” 


FLENG 


LENGTHEN  FEET) 

DEF  FNF1 *ng<Cod*, Di spl ) 

IF  Coa**t0  THEN  Ft  *ng*23. 0*Di  spl^.  342 
IF  Cod** 1 1  THEN  FI *ng«23. l*Di spl~. 324 
IF  Cod#*20  THEN  FI  <png-20 , 3*D  1  sp  1  * .  358 
IF  Ccd**2i  THEN  FI *ng«t2. l*Di spl*. 447 
IF  Ccd**30  THEN  FI #r»g*19. 4*Di spl~. 332 
IF  Cod**40  THEN  F1eng*t6. 9*D1 spl^. 396 
IF  Cod**30  THEN  FI  *ng*.  637*0 !  spl+33 
IF  Cod*-60  THEN  F 1 *ng» t 4 . 6*D i sp 1 ^ . 357 
IF  Cod*«70  THEN  FI *rg*. 637* Di spl +33 

IF  <Cod*-90>  AND  < D i  so l  >  1 000 )  THEN  F  »  eng«336. 4*LGT<  Di  spO-859 . 2 
IF  <Cod*-88)  AND  <  D 1  »p  1  <  *  1 090  >  THEN  FI  *ng»U9. 0*LGT<Di  spt  ;-120.  % 
RETURN  r 1 #ng 
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2933 

2910 

2913 

2920 

2923 

2930 

2933 

2940 

2943 

2930 

2933 

2960 

2963 

2970 

2973 

2980 

2983 

2990 

2995 

3000 

3005 

3010 

3013 

3820 

3023 

3030 

3033 

3040 

3045 

3030 

3033 

3060 

3063 

3070 

3073 

3080 

3083 

3090 

3093 

3100 

3103 

3110 

3113 

3120 

3123 

3130 

3133 

3140 

3143 

3130 

3133 

3160 

3163 

3170 

3173 

3130 

3183 

3198 

3193 

3200 

3203 

3210 

3213 

3220 

3223 

3230 


FNEND 

FDI3P 

DISPLACEMENT C IN  TONS) 


DEF  FNFdi ipCCode, Leng) 

IF  Code-10  THEN  Fdi sp-CLeng/23 . 0)^2. 92 
IF  Code- l 1  THEN  Fdi sp-<L*ng/23. 1 )~3 . 39 
IF  Code-20  THEN  Fdi sp-<L*ng/20. 3>~2. 79 
IF  Code-21  THEN  Fdi sp»<L*ng/l2. 1 )-2. 24 
IF  Code-30  THEN  Fdi  sp»<L*ng/19. 4)/'2. 34 
IF  Code-40  THEN  Fdi sp»<Lengxl6. 9)^2. 32 
IF  Code-30  THEN  Fdi sp-<L#ng-33>/. 637 
IF  Code-60  THEN  Fdi  sp-<Leng/14. 6)~2.  30 
IF  Code-70  THEN  Fdi sp-<Leng-33)/ . 637 

IF  < Code-30 )  AND  <L*ng<*210)  THEN  Fd i sp- 1 0^ < < L*ng+ 1 20 ) / 1 1 0 ) 

IF  <Code-80>  AND  <Leng>210>  THEN  Fdi sp- 1 0M CLeng+839 . 2) /336 . 4 ) 

RETURN  Fdi sp 

FNEND 


!  FLTOB 

!  LENGTH  TO  BERM  RATIO 
! 

DEF  FNFUob<Code,Leng> 

IF  Code-10  THEN  FUob-4.0 

IF  Code-11  THEN  F1tob«4.3 

IF  <Code*20)  OR  <Code«21>  THEN  FUob-2.0 

IF  Code-30  THEN  Fltob-3 

IF  Code-40  THEN  FUob-3.3 

IF  Code-50  THEN  Fltob-2.3 

IF  Code-60  THEN  Fltob-3 

IF  Code-70  THEN  FUob-3 

IF  Code-80  THEN  Fltob-3 

RETURN  Fltob 

FNEND 

!  FDTOL 


!  DRAFT  TO  LENGTH  RATIO 

f 

DEF  FNFdtol (Code, Leng) 

IF  Code-10  THEN  Fdto1».20 

IF  Code-11  THEN  Fdtol*. 13 

IF  (Code-20)  OR  CCode-21)  THEN  Fdtol.-. 01 

IF  <Code«33>  OR  <Ccde-30)  THEN  Fdtol-. 03 

IF  < Code-40)  OR  (Code-70)  OR  (Code-80)  THEN  Fdtol-. 06 

IF  Code-60  THEN  Fdtol*. 10 

RETURN  Fdtol 


USEABLE  DECK  AREA  IN  SQUARE  FEET 


DEF  FNFdeck (Code, Leng, 3eA«> 

IF  ( Code-20)  OR  <Code«21)  THEN  Da-. 38 

IF  <Code-t0)  OR  <Code*ll)  OR  (Code-40)  OR  <Code-80)  THEN  Da-. 23 

IF  Code-30  THEN  Da-. 73 

IF  Code-50  THEN  Da».40 

IF  Code-60  THEN  Da-,35 

IF  Code-70  THEN  Da-,30 

Fdeck  -LengeBe  *j**Da 

RETURN  Fdeck 

FNEND 

FUSELD 
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TOTAL  USEFUL  USELOAD  <TONS> 


3233 

3240 

3243 

3230 

3233 

3260 

3263 

3270 

3273 

3230 

3235 

3290 

3295 

3300 

3303 

3310 

3313 

3320 

3323 

3330 

3333 

3340 

3343 

3330 

3335 

3360 

3363 

3370 

3373 

3380 

3385 

3390 

3393 

3400 

3403 

3410 

3415 

3420 

3423 

3430 

3433 

3440 

3443 

3430 

3435 

3460 

3463 

3470 

3473 

3480 

3483 

3490 

2493 

3300 

3585 

3310 

3313 

3328 

3323 

2330 

3333 

3340 

3543 

3330 

3333 

3360 


DEF  FNFuse 1 
IF  Code-18 
IF  Code-11 
IF  Code-20 
IF  Code-21 
IF  Code-30 
IF  Code-40 
IF  Code-50 
IF  Code-60 
IF  Code-70 
IF  Code-88 
RETURN  Fuse 
FNEND 


d<Code, Di spl > 

THEN  Fusel d-FNFf  <Di spl , 20, 3, 480 , 122? 

THEN  Fuse ! d-FNFf <Di spl , 50, 12,333,98) 

THEN  Fuseld-FNFf <Di spl, 13,6,200,63) 

THEN  Fuse  I d-FNFf  <D i spl , 20,3,200,38) 

THEN  Fuseld-FNFf <D1 spl, 98,33, 130,70) 

THEN  Fuse1d«.323*Di3pl-7.3 

THEN  Fusel d-FNFf <Bi spl , 20,3,200,68) 

THEN  Fusel d-FNFf <D i spl , 700, 200, 4230, 1230) 
THEN  Fusel d-FNFf <Di spl , 40, 12,400, 100) 

THEN  Fuseld-FNFf IglgCDI spl, 3. 3, 1,3088, 1800) 
Id 


! 

!  FHPBIN 


INSTALLED  BASE  HORSEPOWER 

(FOR  A  CRAFT  WITH  DESIGN  SPEED-BASE  SPEED) 


DEF  FNFhpbi n<Code, Di spl ) 

IF  Code-10  THEN  Fhpbi n«FNFf<Di spl , 33, 2730, 308, 20000) 

IF  Code-11  THEN  Fhpbi n-FNFf < Di spl , 20, 1000, 230, 1 4000) 

IF  Code-20  THEN  Fhpbi n«FNFf<D1 spl , 8, 1370, 80, 6606) 

IF  Code-21  THEN  Fhpbi n«FNFf<Di spl , 23, 2300, 130, 17800) 

IF  Code-30  THEN  Fhpb i n-FNFf < Di sp 1 , 0, 4000 , 1 30 , 1 0600 ) 

IF  Code-40  THEN  Fhpbi n-FNFf <D1 spl , 33, 3000, 133, 14300) 

IF  Code-30  THEN  Fhpbin-FNFf <Di spl , 64, 3480, 74, 3600) 

IF  Code-70  THEN  Fhpb i n-FNFf < D i sp 1 , 23 , 762 , 200 , 6343 ) 

IF  Code-60  THEN  Fhpbi n-FNFf 3 < D i sp I , 200 , 2000 , 1000 , 6300 , 4000, 12308 ) 
IF  Code-88  THEN  Fhpbi n-10^< . 639*LGT<Di spl ) +2. 2648) 

RETURN  Fhpbi n 
FNEND 


!  FSURVI 

?  SURVIVABILITY 

I 

DEF  FNFsurvi (Code, Leng) 

$sur»3. 0 

IF  <Code-20)  OR  <Code-21)  THEN  3sur-2.0 

IF  Code-38  THEN  Ssur-3.5 

IF  Code-60  THEN  Ssur-4.0 

Fsurui ». 02*Leng+Ssur 

IF  Fsurui >7  THEN  Fsurui-7 

RETURN  Fsurui 

FNEND 

!  FENG 

!  ENGINE  TYPE 


DEF  FNFeng<Code, R*te) 

OPTION  BASE  1 

DIM  A1 1 dsl <4) , A1 lgt  <4> , Gt3dsl <4) , Gt Idsl <4) 

INTEGER  Alldsl ,A1 lgt ,Gt3dsl , Gt ldsl ,Feng 

DATA  2, 2,2,2 

MAT  READ  Alldsl 

DATA  1,1, 1,1 

MAT  READ  AUgt 

DATA  1,1,  1,2 

MAT  READ  Gt3dsl 

DATA  1,2, 2, 2 

MAT  READ  Gttdsl 
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3363 

3370 

R*t#) 

3373 

3380 

3385 

3390 

3393  ! 

3600  ! 

3605  ! 

3610  ! 

3615  ! 

3620  f 

3625 

3630 

3633 

3640 

3643 

3650 

3633 

3660 

3663 

3670 

3673 

3680  ! 

3683  ! 

3690  I 

3693  ! 

3700  ! 

3783 

3710 

3713 

3720 

3723 

3738 

3733  L2 

3740 

3743 

*Dsp«cd 

3738 

3733 

3760 

3763 

3770 

3773  ! 

3780  t 

3733  ! 

3790  ! 

3795  I 

3800 

3805 

3810 

3813 

3823 

3823 

3830 

3833  ! 

3840  ! 

3843  ! 

3330  ! 

3835  ! 

3360 

3863 

3870 

3873 

3830 


IF  <Cod**tl>  OR  <Cod**58>  OR  <Cod*«70)  THEN  F*ng*A 11 ds 1 <Rat *) 

IF  <Cod**20>  OR  <Cod**21>  OR  <Code*60>  OR  <Cod*-30>  THEN  F*ng*A11gt< 


IF  <Cod**10)  OR  <Cod**40>  THEM  Feng*Gt3ds I CRai* > 
IF  Cod**80  THEN  F*ng*Gt Ids  1 <Rat * ) 

RETURN  F*ng 
FNEND 


FBSSPD 


BASE  SPEED 

< USED  FOR  BASE  CURVES  FOR  HPIMST, ACCEL, BRAKG, &  TURN) 


DEF  FNFbsspd<Codc) 


IF  <Cod«*10>  OR 
IF  <Cod**l 1 )  OR 
IF  Cod**30  THEN 
IF  Cod**48  THEN 
IF  Cod»*30  THEN 
IF  Cod#-60  THEN 
IF  Cod*«70  THEN 
IF  Cod*-80  THEN 
RETURN  Fbsspd 
FNEND 


<Cod«-20) 

<Cod#»70> 

Fbsspd*60 

Fbsspd*45 

Fbsspd*30 

Fbsspd*20 

Fbsspd*40 

Fbsspd*23 


OR  <Code*21>  THEN  Fbsspd*50 
THEN  Fbsspd*40 


FCWSPD 


CALM  WATER  SPEED  AT  GOOD  VISIBILITY 


DEF  FNFcwspd<Codt, Rate, Dsp#*d) 

IF  R*t#*l  THEN  Fc wspd*Dsp«ed 
IF  R*t**2  THEN  L2 
IF  Rat*«3  THEN  Fcwspd*12 
IF  R*te*4  THEN  Fcwspd*5 
RETURN  Fcwspd 

IF  Code*t8  THEN  Fcwspd*.  83*Dspr«rd 
IF  Cod**ll  THEN  Fcwspd*. 9*Dsp#td 

IF,  <Code*38)  OR  <Cod«-40>  OR  <Codt*30)  OR  <Cod«*78)  THEN  Fcwspd*.373 


IF  <Cod**28)  OR  <Cod*-21)  THEN  Fcwspd* . 33*Dsp**d 

IF  Cod»*60  THEN  Fc wspd* . 60*Dspc«d 

IF  Cod**80  THEN  Fcwspd* . 3*Dspe#d 

RETURN  Fcwspd 

FNEND 


FTOWDS 


TOW  DISPLACEMENT  CAPABILITY  IN  TONS 

DEF  FNFtowds<Code, £t spl ) 

F*  1 0 

IF  <Cod**20>  OR  <Code*21)  THEN  F*2 

IF  Cod**60  THEN  F*5 

Ftowds*F*Di spl *<D1 spl/ 108 >^.3333 

RETURN  Ftowds 

FNEND 

FSFCEN 


SPECIFIC  FUEL  CONSUMPTION  <LBS  PER  HORSEPOWER  HOUR  PER  ENGINE) 

DEF  FNFsfcen<Eng,  Hpi  rtst  ) 

Hp  t  ns2*Hp i nst/2 
IF  Eng*2  THEN  Fsfc*n*.33 

IF  Eng* 1  THEN  Fsf c*n*PMFf 3<Hpi ns2, 480, . 7, 4000, , 48, 16800, . 48 > 
RETURN  Fsr'c  *n 
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3883 

3380 

3893 

3900 

3905 

3910 

3915 

3920 

3923 

♦2 

3930 

3933 

3940 

3943 

3950 

3933 

3980 

3983 

3970 

3973 

3980 

3983 

3990 

3993 

4800 

4305 

4010 

4013 

4020 

4023 

4030 

4033 

4040 

4043 

4030 

4033 

4060 

4065 

4070 

4873 

4080 

4083 

4090 

4093 

4100 

4103 

4110 

4113 

4120 

4123 

4130 

4133 

4140 

4143 

4130 

4133 

4160 

4165 

4178 

4173 

4130 

4133 

4130 

4193 

4200 

4283 


FNEND 

F3FCCF 


!  SPECIFIC  FUEL  CONSUMPTION  CORRECTION  FACTOR 

i 

OEF  FNFsfccf <Eng, Hpfctu) 

IF  <Eng*l)  AND  <Hpfctu>.5)  THEN  Fsf cc f *-. 4*Hpf c t u+ 1 • 4 

IF  <Eng*l )  AMD  <Hpfctu>.23>  AND  <Hpfctu<*.3)  THEN  Fife  c  f  *-  1 . 6*Hpt'c  t  u 

IF  <Eng*l )  AND  < Hpf c t u< * . 23)  THEN  Fsf c c f *-3 . 2*Hpf c tu+2. 4 
IF  Eng*2  THEN  Fsf ccf*l 
RETURN  Fsfccf 
FNEND 

! 

!  FHPFCT 

!  FRACTION  OF  INSTALLED  HORSEPOWER  UTILIZED 

j 

DEF  FNFhpfc t  <Cod*f  R*t  *,  Fcidsp, Fc tbsp) 

i 

IF  <R*t#-i)  OR  <R*t**2>  THEN  Pc t dsp* 1 80*Fc t dsp 
IF  <R*t#*3)  OR  <R*t#*4)  OR  <R*tt*8)  THEN  Pctdsp*l 30*Fc t bsp 

IF  <Cod€<  >10)  AND  <Cod#<  >11)  THEN  L20 
Hppct*FNFf3<Pctdsp,0,3,20, 14,40,48,83,73,100,100) 

GOTO  L99 

L20:  IF  <Cod#<  >20 )  AND  <Cod#<>21>  THEN  L30 

IF  Pctdsp<*10  THEN  Hppc t * 1 0 

IF  <Pctdsp<*30>  AND  <Pctdsp>l0)  THEN  Hppc t *2*Pctdsp- 1 0 
IF.  <Pctdsp<*30>  AND  <Pctdsp>30)  THEN  Hppc t * , 28*Pc t dsp+44 
IF  Pctdsp>80  THEN  Hppc t»2*Pct dsp- 108 
GOTO  L99 

L30?  IF  Cod€<  >38  THEN  L40 

Hppct*FNFf3<Pctdsp,0,  10,88,60,  100,  100) 

GOTO  L99 

L48:  IF  Cod#<  >40  THEN  L30 

IF  Pet dsp< *20  THEN  Hppct*5 

IF  <Pcidsp<*40)  AND  <Pctdsp>20)  THEN  Hppc t *2. ?3*Pct dsp-30 
IF  <Pctdsp<*80)  AND  < Pc t dsp >40 )  THEN  Hppc t *. 23*Pc tdsp+50 
IF  Pctdsp>88  THEN  Hppet *1 . 3+Pctdsp-30 
GOTO  L99 

L30J  IF  Cod#<  >30  THEN  L60 

IF  Pctdsp<*10  THEN  Hppc t * . 30*Pc t dsp  +  5 

IF  <Pctdsp<*30)  AND  <Pctdsp>10)  THEN  Hppc t *2. 5*Pc t dsp- 1 3 
IF  <Pctdsp<  *33)  AND  <Pctdsp>30)  THEN  Hppc t * , 20*Pc t dsp+54 
IF  Pctdsp>80  THEN  Hppct*l . 3*Pctdsp-30 
GOTO  L99 

LS0:  IF  Cod#<  >60  THEN  L73 

Hppct*FNFf4<Pct dsp,  0, 3, 30,12,70,43,100,100) 

GOTO  L99 

L70:  IF  Cod#<  >70  THEN  L30 

IF  Pctdsp<*10  THEN  Hppc  t  *5 

IF  Pctdsp>10  THEN  Hppct*t.03336*Pctdsp-3.33336 
GOTO  L99 

L80:  IF  Pctdsp<*20  THEN  Hppct*l0 

IF  <Pctdsp<*60>  AND  <Pctdsp>20)  THEN  Hppc t * , 23*Pc t dsp+3 
IF  Pctdsp>60  THEM  Hppcx*2*Pctdsp-t08 
L99:  Fhpt*ct*Hppct/108 

RETURN  Fhpfct 
FNEND 

i 

!  FTNRAD 

! 

DEF  FNFtnradC Cod# , Cwspd) 

IF  Cod#* 10  THEN  Om#g**8 
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4210 

4213 

4220 

4223 

4233 

4233 

4240 

4243 

4230 

4233 

4260 

4263 

4270 

4273 

4280 

4285 

4280 

4283 

4300 

4305 

4310 

4313 

4323 

4323 

4330 

4335 

4340 

4345 

4350 

4353 

4360 

4363 

4370 

4373 

4380 

4383 

4380 

4385 

4400 

4405 

4410 

4413 

4420 

4425 

4430 

4435 

4440 

4443 

4430 

4453 

4460 

4465 

4470 

4475 

4460 

4485 

4480 

4485 

4500 

4303 

4510 

4313 

4320 

4323 

4330 

4333 


IF  <Cod#*20)  OR  <Cod#*21 >  THEN  Om*ga*2 

IF  Cod**30  THEN  0m*ga*1.3 

IF  Cod**40  THEN  Ora*ga*4 

IF  <Code*ll)  OR  <Cod*>*30>  THEN  0i»*ga*3 

Ft nr ad* 1  .  689*Cwspd/  <  3.  1 4 1 38263/ l30*Qm*gA,< 

RETURN  Ftnrad 
FNEND 

FMUTAV 

WEIGHTED  AVERAGE  MOTION  OF  CRAFT 

DEF  FNFmwt ao(Saprbd< *>  , Cod* , D i 3p 1 , R  at  * ) 

OPTION  BASE  l  * 

Sam-0 

LAMBDA  CONVERTS  WAVE  HEIGHT  FROM  CRAFT  DISPLACEMENT  TO 
BASE  DISPLACEMENT  <*100  TONS) 

Lambda* < 1 00^ Di spl ) 333 

IF  Cod**60  THEN  La»bda*< 1 300/D i spl )^ . 333 
FOR  Ssl-1  TO  8 
Ss*Ss 1—1 

Uvhtcf«.3*(-l+2.3*EXP(.4*Ss>) 

Wvht b**Lambda*WMht cf 
FI ag*0 

Sa**$ai»+Ssprbd<Ssl ) *FNFmoswh(Cod*, Rat*, Uuhtbs,Flag> 
NEXT  Ssi 
r  nut  av*S*J» 

PRINTER  IS  16 
RETURN  F mwtav 
FNEND 

FF 


!  FINDS  Y  VALUE  ON  A  STRAIGHT  LINE,  GIVEN  X  VALUE  AND  TWO  POINT 
!  ON  A  LINE  (ASSUMING  LINE  EXTENDS  INFINITLY) 

! 

DEF  FNFf <X,X1, Yt,X2, Y2) 

IF  RBS(X2-X1 >< . 0001  THEN  LI 
S1op#*<Y2-Yi>/<X2-Xl> 

B*Y1-S1 ope*Xl 
Ff  *$ 1 ope+X+B 
RETURN  Ff 

Li:  Ff»<Yt+Y2>/2 

RETURN  Ff 
FNEND 

i 

!  FF3 

; 

!  FINDS  Y  VALUE  ON  BROKEN  LINE  OF  5  POINTS,  GIVEN  X  VALUE 
!  AND  THE  3  POINTS 

!  (ASSUMING  ENDS  OF  LINE  EXTEND  INFINITELY) 

f 

DEF  FNFf3(X,Xl, Y1,X2, Y2,X3, Y3,X4, Y4,X3, Y3) 

IF  X<-X2  THEN  Ff5-FNFf (X, XI , Y1 , X2, Y2) 

IF  <X>X2)  AND  <X< *X3)  THEN  Ff 3-FNFf (X, X2, Y2, X3, Y3) 

IF  <X>X3)  AND  <X<*X4)  THEN  Ff 5-FNFf (X, X3, Y3, X4 , Y4) 

IF  X>X4  THEN  Ff3*FNFf (X, X4,Y4,X3,Y3) 

RETURN  Ff 3 
FNEND 

I 

!  FF3 

; 

!  FINDS  Y  VALUE  ON  BROKEN  LINE  OF  3  POINTS,  GIVEN  X  VALUE 
>  AND  THE  3  POINTS 
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4340 

4343 

4530 

4333 

4360 

4363 

4370 

4373 

4380 

4333 

4390 

4593 

4630 

4603 

4610 

4613 

4620 

4623 

4630 

4633 

4640 

4643 

4650 

4653 

4660 

4663 

4670 

4673 

4630 

4683 

4690 

4693 

4700 

4703 

4710 

4713 

4720 

4725 

4730 

4733 

4740 

4743 

4730 

4733 

4760 

4763 

4770 

4773 

4780 

4783 

*790 

4793 

4800 

4895 

4810 

*613 

4820 

4825 

4830 

4833 

4840 

4843 

■*830 

4835 

*860 

4863 


!  (ASSUMING  ENDS  OF  LINE  EXTEND  INFINITELY) 

i 

DEF  FNFf  3C< ,  X 1 ,  Y 1 ,  X2 ,  Y2 ,  X3,  Y3) 

IF  X<  -X2  THEN  Ff 3-FNFf (X, XI , Y1 , X2, Y2> 

IF  X >X2  THEN  Ff3-FNFf(X,X2,Y2,X3,Y3> 

RETURN  Ff 3 
FNEND 

!  FFF 

i 

!  READ  CUVRE  Y  V$  X,CR  X  VS  Y  DEPENDING  UPON  FLAG 
!  CURVE  IS  A  STRAIGHT  LINE 

! 

I  FLAG  *  0  MEANS  Y  VS  X 

\  FLAG  *  1  MEANS  X  VS  Y  (NEGATIVE  SLOPE) 

!  FLAG  *  2  MEANS  X  VS  Y  (POSITIVE  SLOPE) 

! 

DEF  FNFf f (Xory , Flag,Xl,Yl,X2,Y2) 

IF  F1ag-0  THEN  Ff f-FNFf (Xory , XI , Y1 , X2, Y2> 

IF  FI  *3-1  THEN  Ff f-FNFf < Xory , Y2,X2,Y1,X1) 

IF  F ]  *3*2  THEN  Ff f-FNFf (Xory , Y1 , XI , Y2, X2> 

RETURN  Ff f 
FNEND 

! 

!  FFF3 
! 

!  READ  CURVE  Y  VS  X  OR  X  VS  Y  DEPENDING  UPON  FLAG 
!  CURVE  IS  A  BROKEN  LINE  OF  3  POINTS 
} 

•  FLAG  *  0  MEANS  Y  VS  X 

!  FLAG  -  t  MEANS  X  VS  Y  (NEGATIVE  SLOPE) 

\  FLAG  «  2  MEANS  X  VS  Y  (POSITIVE  SLOPE) 

j 

DEF  FNFf f3(Xory, FI  *3, XI, Y1 , X2, Y2, X3, Y3) 

IF  FI  ag«0  THEN  Ff f 3*FNFf 3 ( Xory , XI , Y1 , X2, Y2, X3, Y3) 

IF  Flag-1  THEN  Ff ^3-FNFf3(Xory , Y3, X3, Y2, X2, Y1 , XI > 

IF  FI  *3*2  THEN  Fff3-FNFf3(Xory, Yl,Xt, Y2,X2, Y3,X3> 

RETURN  Ff f 3 
FNEND 
1 

}  FMVSWH 

! 

!  MOTION  OF  BASE  CRAFT  VS,  WAVE  HEIGHT  (FOR  D I SPLACEMENT* i 00  TONS 
!  EXCEPT  TYPE  60  DISPLACEMENT-1300  TONS)  AND  REVERSE 
1 

DEF  FNFmusuM  Code ,  Rata,  Wuhtbs,  Flag) 

In«Wuht bs 

IF  CodeC  >10  THEN  HI 

IF  (Rat a- 1 )  CR  (Rate-2)  THEN  Out -FNFf  f  3<  In,  FI  ag,  0,  0,  13,  .  3, 1 3 ,  l ) 
IF  Rate-3  THEN  Out -FNFf f ( In, FI ag ,0,0, 3, l) 

IF  Rate-4  THEN  Out -FNFf f< In, FI ag, 8, 0,12,1) 

GOTO  L999 

LU:  IF  CodeC  Ul  THEN  L20 

IF  (Rat e- l ^  OR  <Rate-2)  THEN  Out -FNFf f3< In, FI ag, 0,0,3, .23,3, 1) 
IF  Rate-3  THEN  Out -FNFr'f  (  In,  FI  ag,  0,0,  10,  1) 

IF  Rate-4  THEN  Out -FNFf f ( In, FI ag, 0, 3, 14, 1 ) 

GOTO  L999 

L20:  IF  (Codec  >20)  OR  <Ccde<>21)  THEN  L48 

IF  Rate-l  THEN  Out  *FNF*‘f  3(  In,  FI  ag,  3, 0, 4t  .  2, 3,  1  ) 

IF  Rate-2  THEN  Out -FNFf f3< In, Flag, 0*3, 4, .2,6, 1) 

IF  Rate-3  THEN  Out -FNFf f3< In, FI ag, 3, 8, 4, .2,7, 1) 

IF  Rate-4  THEN  Out-FNFf f3( In, FI ag, 0, 8, 4, . 2, 10, 1 ) 

GOTO  L999 

L40:  IF  Codec >30  THEN  L38 

IF  Rate-t  THEN  Out -FNFf f 3 < In, F 1 ag, 0, 0, 3, .2,7, 1 ) 

IF  Rate-2  THEN  Out -FNFf f3< In, FI ag, 0,8, 5, .2,3, 1) 


B-1A 


4370 

4373 

4330 

4393 

4890 

4893 

4900 

4903 

4910 

4913 

30 

4920 

4923 

4933 

4933 

4940 

4943 

4930 

4933 

4960 

4963 

4970 

4973 

4980 

4983 

4990 

4993 

5000 

3005 

5010 

3015 

3020 

3023 

3030 

3033 

3040 

5043 

3030 

3033 

3060 

5063 

3070 

3073 

3080 

3083 

3090 

3095 

3100 

3103 

3110 

3113 

3120 


IF  R*t*»3  THEN  Out ■FNFff3<Int FI ag, 0, 8, 5, . 2, 10, 1 > 

IF  Rat **4  THEN  Out *FNFf  f3<.  In,  FI  ag,  0,  8, 3,  .  2,  12,  1  > 

GOTO  L999 

L30:  IF  Cod«<  >40  THEN  L60 

IF  Rat»-t  THEN  Out»FNFff<In,F1ag,0,0,3, 1) 

IF  Rat**2  THEN  Out«FNFf  f  <  In,  FI  ag,  d,  0, 4,  l  > 

IF  Rat*«3  THEN  Out*FNFff < In, Ft ag, 0, 0, 3, 1 > 

IF  Rat**4  THEN  Out  *FNFf  f  <  In,  FI  ag,  0 , 0,  12,  1 ) 

GOTO  L999 

L60:  IF  < Cod«< >30 >  AND  <Code<>70)  AND  <Cod*<>30>  AND  <Cod*<>100>  THEN  L 

IF  Rat**l  THEN  Out»FNFff<In,Flag,0,0,3, 1) 

IF  Rat**2  THEN  Out  *FNFf  f  <  In,  FI  ag,  8 , 3 , 6,  1  > 

IF  Rat**3  THEN  Out *FNFf f < In , FI ag, 8, 8 , 3, 1 > 

IF  Rat*«4  THEN  Gut *FNFf f < In,  FI  ag,  0, 0, 12, 1 > 

GOTO  L999 
!  FOR  CODE  -  60 

L30:  Out *FNFf f 3<  In,  FI  ag,  0 f  0 ,.i 7.  1 43 ,  .  343,21.01, 1  ) 

L999:  Fmu*wh*Out 

!  IF  F*u*wh>l  THEN  Fmvsuh-1 

IF  F1ag«2  THEN  F«iusuh*Out 
RETURN  Fmusuh 
FNEND 

j 

f 

!  FF4 
{ 

!  FINDS  Y  VALUE  ON  BROKEN  LINE  OF  4  POINTS,  GIVEN  X  VALUE 
!  AND  THE  4  POINTS 

)  (ASSUMING  ENDS  OF  LINE  EXTEND  INFINITELY) 

! 

DEF  FNFf4<X,Xl, Yi,X2, Y2,X3, Y3,X4, Y4) 

IF  X< *X2  THEN  Ff 4-FNFf <X, XI , Y 1 , X2, Y2) 

IF  (X>X2)  AND  (  X< *X3 )  THEN  Ff 4*FNFf <X, X2, Y2, X3, Y3) 

IF  X >X3  THEN  Ff 4*FNFf (X, X3, Y3, X4, Y4> 

RETURN  Ff 4 
FNEND 

! 

! 

!  FFLGLG 
! 

!  FINDS  Y  VALUE  ON  A  STRAIGHT  LINE  ON  LOG-LOG  PAPER, 

!  GIVEN  X  VALUE  AND  2  POINTS  ON  THE  LINE  (ASSUMING  LINE 
»  EXTENDS  INFINITELY) 

i 

DEF  FNFf 1 g 1 g< X , X 1 , Y 1 , X2, Y2 ) 

IF  X1*X2  THEN  LI 

$1 op»*(L0G(Y2)-L0G(Yl ) )/(L0G(X2)-L0G(Xl >  > 

B»LOG(Yl)-S1op«*LQG(Xl ) 

Ff 1 g 1 g *EXP< SI opc*LOG(X)+B) 

RETURN  Fflglg 
FNEND 


3-15 


APPENDIX  C 


473 

430 

483 

490 

493 

300 

303 

310 

513 

520 

323 

330 

333 

340 

343 

550 

333 

360 

363 

370 

373 

580 

383 

390 

393 

600 

603 

610 

613 

620 

623 

630 

635 

640 

643 

630 

633 

660 

663 

670 

675 

680 

683 

690 

693 

700 

783 

710 

713 

720 

723 

730 

733 

740 

743 

739 

733 

760 

765 

770 

773 

780 

783 

790 

"93 

300 


*********4****** ******** *****  5  p  T  P  0  3  ****** ** 

3PTPQS  SUBROUTINE 

COMPUTES  CRAFT  PARAMETERS  AND  TASK  PROBABILITIES  OF  SUCCESS 
FOR  A  CRAFT 

TO  FIND  CRAFT  PARAMETERS: 


Spt  p  05 : 


!  CONVERTED  SUBROUTINE  SPTPOS 
DISP  ■  LINK  COMPLETE,  CALCULATING  PERFORMANCE  IN  SEAWAY" 
FOR  I-l  TO  8 
Craf 
NEXT  1 

DATA  .7, .6, .8, .3,. 9, .3, .5, 1.0,99. ,99. , 1.0, 1.0 
DATA  99. , 1.0,99* , 1.0,99. ,99. ,99. 

MAT  READ  Mo 

DATA  9999. ,9999. ,9999. ,9999. 

MAT  READ  Xx 

DATA  0.3, 1.0, 1.3, 2. 0,2. 3, 3. 0,3. 3, 4. 0,4. 3, 3.0 
MAT  READ  Avess 

DATA  .3, . 7, 1. , 2. , 10. , 1. ,2. , 4. ,6. ,20. ,2. 3, 4. , 7. ,20. ,30. 
DATA  7. , 10. ,20. ,30. , 100. , 10. ,30. , 60. , 80. , 300. 

DATA  30. , 100. ,300. , 1000. , 10000. 

MAT  READ  Towdis 


DATA  .9, ,7, .3, . 1, .2,  . 
MAT  READ  Vlsdl* 

DATA  99999. ,20. , 10. 
MAT  READ  Vaxvis 


3, .0,. 1, .2 


DATA  13. ,32.3,43.2,9999. , 9999 . , 63. 9 , 9999. ,73.6, 130. ,9999. 
DATA  9999. , 1266. 7 
MAT  READ  Cgfr20 

DATA  3. 1, 9. 1, 16. 0,20. 7,21.2, 18. 6,27. 3,23. 6, 27. 9 
DATA  70.6,89.4,221.4 
MAT  READ  Cgfrl0 

IF  Code-10  THEN  Typnum-1 
IF  Code-il  THEN  Typnum-2 
IF  Code-29  THEN  Typnu«*3 
IF  Code-21  THEN  Typnum«4 
IF  Code-30  THEN  Typnum-3 
IF  Code-40  THEN  Typnum-6 
IF  Code-50  THEN  Typnum-7 
IF  Code-60  THEN  Typnu»-8 
IF  Code-70  THEN  Typnu*-9 
IF  Code-80  THEN  Typnu»*t0 
IF  Code>-180  THEN  Cgtype-Code- 100 

FOR  Rate«l  TO  4 

IF  Code>- 100  THEN  Sfc*ng<Rat e>-0 
IF  Code>-t 30  THEN  Sfccf <Rat e > -0 
IF  Code>-130  THEN  Totsfc <Rat e)-0 
IF  Code>- 130  THEN  Sfcgal <Rat*)»3 
NEXT  Rate 

FIND  PARAMETERS 

ALL  PARAMETER  PROBABILITIES  SET  EQUAL  TO  1.0  EXCEPT 
WHERE  RECALCULATED  BELOW 

FOR  Jtpos*l  TO  19 
Cc  < Jt po*>* l 


c-i 


303 

Df < Jtpos>3l 

310 

Ls  ( J  t  pos  >  *  t 

313 

Mn<  Jtpoj^i 

320 

Sk  <  Jt pos)*t 

323 

Tw< Jtpos)*l 

338 

NEXT  J t pos 

833 

j 

340 

!  AVERAGE  SPEED  AND  AVERAGE  FUEL  RATE  <IN  EXPECTED  SEA  STATES 

343 

i 

AND  VISIBILITIES) 

330 

1 

333 

V1sfu*<l >-99999 

360 

j 

FUEL  RATE  IN  LIMITED  VISIBILITY 

863 

» 

870 

IF  Cod#> 100  THEN  L3930 

373 

FOR  V1styp«2  TO  3  STEP  1 

380 

Vvi  j  *V*x v i  s< Vi  st  yp> 

883 

Fc t bsp-Vui s/FNFbsspd<Cod*> 

880 

Rat  #*0 

893 

Hpfctu-FNFhpfct  (Code, Rat#, 0, Fc t bsp) 

960 

Zhpt i ] *Hpf  ctu*FNFhpbi rt<Code, Di spl > 

903 

IF  V1styp*2  THEN  Zeng»FNFeng< Cod# ,  2 ) 

910 

IF  Vistyp«3  THEN  Zeng*FNF#ng<Cod#, 3) 

915 

Zsf  c#n*FNFsf  c«n<Z«ng, Hpi nst ) 

920 

Zsf  cc  f «FNFsf ccf <Z*ng , Npf c t u) 

923 

Zttsfc -Zsf c#n*Zsfccf 

930 

Zsf cgl -Zttsfc *335/2240 

933 

Vi sfu#<Vi styp)»Zhpt i 1 *ZsfcgI 

940 

NEXT  Vi st yp 

943 

GOTO  L8910 

930 

I 

933 

t  FUEL  RATES  FOR  COAST  GUARD  CRAFT  IN  LIMITED 

VISIBILITY 

960 

j 

963  1 

-8900: 

Visfu#<2)«Cgfr20<Cgtyp#> 

970 

Vi sfu#<3)»Cgf r 10<Cgtyp#) 

973  L8910: 

FOR  R*t#«l  TO  4 

980 

GOSUB  Vutav 

983 

Speed (Rat e)»V*vg 

998 

Mfulrt  (Rat e)*Avf urt 

993 

NEXT  Rate 

1000 

1 

1003 

!  GO 

:  GO  FRACTION  (USED  IN  LIMITING  SEA  STATE 

PARAMETER) 

1010 

1 

1013 

DATA  13. ,3. ,3. ,3. 

1320 

MAT  READ  Go* in 

1023 

FOR  Rate«t  TO  4 

1038 

IF  Bspeed<Go« inCRat*)  THEN  L4732 

1033 

Pc  dspd»Conti n(Rate)/Dspeed*180 

1043 

FI ag«l 

1945 

$s»x*FNFpdsss(Code, Di spl , Rat  * , Dspeed, Pc dspd , FI ag> 

1030 

Go(Rate)«FNFcpbss(Ssprob<*> ,  Sspdt  b ,  Ssmx ) 

1033 

GOTO  L4781 

1060 

L47025 

Gc(Rate)*0 

1065 

L4701: 

NEXT  Rat# 

1070 

! 

1873 

!  TW 

:  TOW  FRACTION  PARAMETER 

1080 

| 

1083 

GOSUB  Ptwd 

1093 

TwC 12)*Pt oud 

1093 

Fctdsp»Avtwds/Qi  spl 

1100 

Towspd*FNFf3<Fctdsp,  3,3, .2,13,10,0) 

1103 

» 

1110 

!  SK 

:  SEAKINDLINESS  PARAMETER  <USED  IN  LIMITING  SEA  STATE  PARAMETER ! 

1113 

! 

1120 

FOR  J t pos* 1  TO  19 

1123 

IF  Ko(Jtpos>»99  THEN  L9020 

1130 

Mtn*Mo( Jt pos) 

C-2 


1135 

1140 

1145 

1150 

1155 

1  1  O0 

1165 

1170 

1175 

1138 

1185 

1190 

1195  L9020: 
1200 
1205 
1210 
1215 
1220 
1225 
1230 
1235 
1240 
1245 
1250 
1255 
1260 
1265 
1270 
1275 
1280 
1285 
1290 
1295 
1300 
1305 
1310 
1315 
1320 
1325 
1330 
1335 
1340 
1345 
1350 
1355 
1360 
1365 
1370 
FORTRAN 


IF  Jtpos<7  THEN  Rat e*4 

IF  (  Jtpos>*8)  AND  <Jtpos<*12>  THEN  Rat**3 
IF  (Jtpos>*t3>  AND  (Jtpos<*13)  THEN  Rat**2 
IF  Jt  poa*  1 9  THEN  Raw*  1 
FI ag*2 

Uoht bs*FNFrov5wh(Cod* , Rat *, Mtn , Flag) 

Lambda* < 1 00/ Di spl X, 333 

IF  Typ**60  THEN  La»bda*( 1 500/D i sp 1 ) ^ . 333 
Uoht  cf  *Wuht'bs/La«bda 
Arg*. 3*Wvhtcf+. 4 
Ss*2. 5*L0G< Arg) 

Sk  < Jtpos) *FNFcpbss(Saprob(*) ,3spdtb,Ss) 

NEXT  Jtpos 

MN:  MANEUVERABILITY  parameter 

Mn< 1 )*FNFf  4CLeng, 0 , 1,50, 1 , 200, . 3 , 99999, . 8) 

Mn<2) *Mn< 1 ) 

Mn<3)*Mn< 1 ) 

Mn<  4) *Mn< 1 ) 

Mn(7)*Mn( 1 ) 

Mn(l 2) «FNFf 4(9999999,0, 1,500, 1,1500, .5,99999, .5) 
Mn(14)-FNFf4(Tnrad(2>,0, 1,500,1, 1500, . 5, 99999, . 5) 

SU:  SURVIVABILITY  (USED  IN  LIMITING  SEA  STATE  PARAMETER) 

Su8*FNFcpbss($sprob(*)  ,  Sspdt  b,  liurw) 

$u(  1 ) *Su0 
Su(2)*Su0 
Su(3)*Su0 
Su<  4) *Su0 

LSI  LIMITING  SEA  STATE  PARAMETER 

FOR  Rate«l  TO  4 
LI s (Rat e)*Go( Rate) 

IF  Su(Rate)<Go(Rate>  THEN  LI  s ( Rat e)*$u( Rate) 

NEXT  Rate 

FOR  Jtpos*l  TO  19 

IF  Jt pos< *7  THEN  Ls< Jtpos)*MIN(Ll s<4> , Sk ( Jtpos) ) 

IF  ( Jtpos>*8)  AND  < Jt pos<*!2)  THEN  Ls( Jt pos)*MIN(L1 s(3) , Sk < Jt pos >  ) 
IF  <Jtpos>*l3)  AND  (Jtpos<*l8>  THEN  Ls < Jt pos ) *MIN(L1 s C2) , Sk ( Jt pos ) ) 
IF  Jt pos*19  THEN  L»< Jtpos)*MIN(Ll s< 1 ), Sk (Jtpos) ) 

NEXT  Jtpos 

CC:  CARGO  CAPACITY 


Cc(17>= 
VERSION  OF 


0  !  ORIGINALLY 
THIS  PROGRAM. 


SET  TO  999.  CAUSED  OUTPUT  CONVERSION  ERROR  IN 


1375 

1380 

! 

!  DF:  DRAFT  PARAMETER 

1385 

1390 

! 

Df 0*l-FNFpdpth(Dphdtb, Draf ) 

1395 

Df  <  1 ) *Df 0 

1400 

Df ( 2) *Df 0 

1405 

Df  <  3) *Df 8 

1410 

Df ( 4 ) *Df 0 

1415 

Df (6)*Df0 

1420 

Df (7)*0rt 

1425 

Df <3)*Df0 

1430 

Df ( 10)*Df8 

1435 

Df  < 1 1 ) *Pf 0 

1440 

Df ( 1 6) *Df 8 

1445 

1450 

I 

!  PRINT  MFULRT, SPEED  AND  TOWSPD 

1455 

j 

AT  END  OF  CHARACTERISTICS  LIST 


C-3 


14b9 

1463 

1470 

1473 

1480 

1485 

1490 

1495 

1500 

1595 

1510 

1513 

1520 

1525 

1530 

1535 

1340 

1345 

1530 

1335 

1560 

1563 

1370 

1375 

1580 

1583 

1590 

1595 

1600 

1683 

1610 

1615 

1628 

1625 

1630 

1635 

1640 

1645 

1650 

1655 

1660 

1665 

1670 

1675 

1680 

1685 

1698 

1695 

1700 

1705 

1710 

1715 

1720 

1723 

1730 

1733 

1740 

1745 

1750 

1735 

1760 

1763 

1779 
1775 

1780 
TIES 


PRINT  USING  L394 1 ;  “  AVG  FUEL  RATE"  ,  Mfu  1  rt  <*>,“  GAL-'HR  “ 
L3941 :  IMAGE  10X,K,3X, 4<6D, 3) , 4X,K 

PRINT  USING  L3042; “AVG  SPEED " , 3p**d<  * > , "KNOTS" 

L3942:  IMAGE  1 0X , K , ?X , 4< 6D . D > , 4X , K 

PRINT  USING  L3043;  "TOW  SPEED"  ,  Touspd,  "KNOTS" 

L3043I  IMAGE  10X, K, 13X, K, 7X, K, 1X,6D.D,6X,K,5X,K 
PRINTER  IS  16 

! 

!  PRINT  PARAMETER  VALUES  FOR  MASTER  TASKS 


L4795! 


L4091: 


L4936; 

L302: 

L4933: 

L583: 

L4937: 

L4945: 

L500U 

L3082: 


L5006! 

L3097: 

L3008: 

L3009: 

L5010: 


$s*vg»Av*ss  CSspdt  b) 

Idi sp»D i spt 
1 1 *ng«L#ng 
Idspd*Dsp**d 
PRINT 

DISP  “  END  OF  CRAFT  CHARACTERISTICS,  PRESS  CONT  TO  GO  ON" 

BEEP 

PAUSE 

DISP 

PRINT  PAGE 

INPUT  "WOULD  YOU  LIKE  A  HARD  COPY  LISTING  <Y/N>?  -,Rns$ 

IF  Ans*«AY“  THEN  PRINTER  IS  8 
PRINT  PAGE 

PRINT  USING  L489i;"C  RAFT  PARAMETERS" 

IMAGE  22X, K 

PRINT 

PRINT 

IF  Cod* >100  THEN  L302 

PRINT  USING  L4936; "CRAFT  TYPE",CrfnmS 

IMAGE  22X,K,3X,K 

GOTO  L505 

PRINT  USING  L4933; "CRAFT  TYPE", "COAST  GUARD ", Crfnm* 

IMAGE  22X,K,3X,K, IX, K 

PRINT  USING  L4937J "DISPLACEMENT", Idlsp, "TONS" 

IMAGE  22X,K,6D,2X,K 

PRINT  USING  L4945;  “LENGTH"  ,  IUng,  “FEET" 

IMAGE  22X, K,6X,6D,2X,K 

PRINT  USING  L5001; "DESIGN  SPEED" , I dspd, "KNOTS " 

IMAGE  22X,K,6D,2X,K 

PRINT  USING  L3002; "FUEL  FRACTION" , Fufrc 

IMAGE  22X, K, 3D. 2D 

PRINT 

PRINT  USING  L3006;  "VISIBILITY  DISTRIBUTION  NO.*,VUdtb 
PRINT  USING  L3006; "TOW  DISTRIBUTION  NO.",Towdtb 
PRINT  USING  L3006; "DEPTH  DISTRIBUTION  NO.",Dphdtb 
PRINT  USING  L3096; "SEA  STATE  DISTRIBUTION  NO.“,Sapdtb 
IMAGE  26X , K, 2D 

PRINT  USING  L5007; “(AVERAGE  SEA  STATE  *“ , Avtss < Sspdt b > , " >  - 

IMAGE  26X,K,D.D,K 

PRINT 

PRINT 

PRINT  USING  L3009; "TASK" , "CARGO" r “DRAFT", " MANEUV " , "SEA", "TOW" 

IMAGE  14X,K,2X,K, IX, K, iX,K, 2X, K,3X,K 
PRINT  USING  L5009; “CODE" , “CPCTY" , "STATE" 

IMAGE  14X,K,2X,K, 14X,K 

PRINT 

PRINT 

PRINT  USING  L3010;  "CC",  "DF",  "JIN",  “SS",  "TW" 

IMAGE  22X,K,4X,K,4XtK,4X,K,4X,K 

PRINT 

PRINT 

PRINT  USING  L3034; “ON  SCENE:" 

PRINT  USING  L5012;  “ASST",  "  —  "  ,  Df  <  1 )  ,  Mn<  1  >  ,  Ls<  1  >  ,  "  —  "  ,  “ASSIST" 

PRINT  USING  L5012;  “BORD" ,  •  —  "  ,  Df  <2)  ,  Mn<2)  ,  LsC2>  ,  "  —  "  ,  “BOARD" 

PRINT  USING  L5012;  "MNRC"  ,  "  —  “  ,  Df  <3>  ,  Mn<3)  , L*<3)  ,  ,  "MONITOR  ACTIVI 


C-4 


1783  PRINT  USING  L5Q12;  "RTRV"  Df<4->  ,  Mn<  4>  ,  L*C4)  ,  “  —  “  ,  "RETR  IEVE" 

1730  L3012:  IMAGE  1 4X, K, 4X, K, 3X, 3(D. 2D , 2X)  ,  IX, K, 3X, K 

1793  PRINT  USING  L5031 ;  "WAIT"  ,  "  —  " ,  -  ,  L*<3)  ,  "  —  "  ,  “WAIT" 

1800  PRINT  USING  L3029 ;  "  WEQD " ,  "  — , Df  <  6) ,  ,  "WORK  EQUIPMENT 

G  DRIFT- 

1303  PRINT  USING  L3013; "UEQP" , " — - , Df<7> , Mn<7> , L*<7) , " , "WORK  EQUIPMENT 

G  POSITION- 

1810  L3013:  IMAGE  14X,  K,  4X,  K,  3X,  D.  2D,  2X,  D.  2D,  2X,  D.  2D,  3X,  K,  3X,  K 
1313  PRINT 

1820  PRINT  USING  L3034 ; “REDUCED  SPEED: " 

1323  PRINT  USING  L3029; -SDIU"  ,  "  —  "  ,  Df<3>  ,  -  —  M  ,  Ls  (  3  ),"--'*,  "  SEARCH  FOR  DIST 

RESSED  UNIT- 

1930  PRINT  USING  L5031; -SESC-,  "  —  ",Ls<9>," —  ",  "SLOW  ESCORT" 

1833  PRINT  USING  L3029; "SPAT" , “ — -,Df<l0)," — m,Lj(10)," — ","SLOW  PATROL" 

1840  PRINT  USING  L3029;  "SPEO"  ,  “  — Df<  H  L*<  1 1  ),"--%  "SEARCH  FOR  PE 

OPLE" 

1843  PRINT  USING  L3024;  “TOWS"  Mn<  12)  ,  Ls<  12)  ,  Tu<  12)  ,  "TOWS" 

1830  L3024:  IMAGE  14X , K, 4X, K , 4X, K, 3X, 3< D. 2D , 2X) , K 
1833  PRINT 

I860  PRINT  USING  L3034; "CRUISE  SPEED:"  , 

1863  PRINT  USING  L3033;  "ESCT"  Ls<  13)  "ESCORT- 

1870  PRINT  USING  L3027;  "IDNT",  "  —  Mn<  1 4>  ,  Ls<  14  IDENTIFY" 

1873  L3027:  IMAGE  1 4Xf K, 4X , K , 4X, K, 3X , D . 2D , 2X , D. 2D , 3X, K  ,  3X,  K 

1880  PRINT  USING  L3033;  "PATL"  ,  "  — " ,  ,  " — " , Ls< 13) ,  ,  "PATROL" 

1833  PRINT  USING  L3029;  "STGT"  ,  ,  Df  <16)  ,  ,  Ls(  16)  ,  ,  "SEARCH  FOR  TA 

RGET" 

1890  L3029:  IMAGE  14X , K, 4X, Kf 3X, D . 2D, 3X, K, 3X , D. 2D, 3X , K , 3X , K 

1893  PRINT  USING  L3030;  "TRPT"  ,  Cc  <17)  L*<17>  "TRANSPORT" 

1900  L3030:  IMAGE  1 4X, K , 3X , D . 2D, 3X, K , 4X , K , 3X , D . 2D , 3X, K , 3X , K 

1903  PRINT  USING  L3831 ;  “TRST"  Ls<  18)  ,  " —  ", "TRANSIT" 

1918  L3031:  IMAGE  14X,K,4X,K,4X,K,4X,K,,3X,D.2D,3X,K,3X,K 
1913  PRINT 

1920  PRINT  USING  L3034; "FLANK  SPEED:" 

1923  PRINT  USING  L3 03 1 ; "RSPD La < 19) , “  — “  , "RESPOND" 

1930  L3033:  IMAGE  14X,  K,  4X,  K,  4X,  K,  4X,  K,  3X,  D.  2D,  3X,  K,  3X,  K 

1933  PRINT 

1948  PRINT 

1943  PRINT  USING  L5034;"***  DEPENDENT  UPON  SCENARIO  <E.G.,  FOOTPRINT  AND 

WEIGHT  OF  CARGO)" 

1930  L3034:  IMAGE  10X,K 


1933 

I960 

1963 

1970 

1973 

1980 

1983 

1990 

1993 

2030 

2003 

2010 


PRINT 
DISP  " 
BEEP 
PAUSE 
DISP 


END  OF  SECOND  OUTPUT  PAGE,  PRESS  CONT  TO  GO  ON¬ 


TO  FIND  TASK  PROBABILITIES  OF  SUCCESS: 


FOR  Jtpos»l  TO  19 
IF  Jlpos*17  THEN  GOTO  L9060 

Tpas<Jtpos)»Cc<Jtpos)*Df<Jtpos) *Ls  <Jtpos)*Mn<Jtpos)*Tw<Jtpos) 
GOTO  L9039 
2813  L9860:  Tpo*< Jtpos)»0 
2020  L9039 S  NEXT  Jtpos 
2023  i 

2830  !  PRINT  TASK  PROBABILITIES  OF  SUCCESS 

2033  ! 

2040 
2e45 

ESS" 

2050  L60312  IMAGE  13X,K 


PRINT  PAGE 

PRINT  USING  L603i;-T  ASK  PROBABILITIES  OF  SUCC 


2033 

2G60 

2863 

2070 


PRINT 
PRINT 

IF  Cod€>100  THEN  L306 

PRINT  USING  L6032; "CRAFT  TYPE" , CrfnmS 


2073  L5032:  IMAGE  22X,K,3X«K 
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2088 
2033 
2090 
2093 
2100 
2103 
2110 
2113 
2120 
2123 
2130 
2133 
2140 
2143 
2130 
2133 
2160 
2163 
2173 
2173 
2180 
2183 
2190 
2193 
2200 
2203 
2210 
2213 
2220 
2225 
2230 
2233 
2240 
2243 
2230 
2233 
2260 
2263 
2270 
2273 
2280 
2283 
2290 
2293 
2300 
2303 
2310 
2315 
2320 
2323 
2330 
2333 
2340 
2345 
2330 
AFT' 
2333 
2360 
UPON" 
2363 
2370 
2373 
D  WEI 
2380 
2335 
2390 


L306: 

L6033: 

L307: 


16113: 

L6116: 

L6117S 

L6001: 


L6022: 

L6012: 

L60131 


L6033; "CRAFT  TYPE" , "COAST  GUARD ", Crfnm* 

3X,K, IX, K 

L4937; "DISPLACEMENT" , Idisp, "TONS" 

L4943; "LENGTH", Il*ng, "FEET" 

L3001 ; -DESIGN  SPEED", Idspd, "KNOTS" 

L3002; "FUEL  FRACT I  ON " , Fut>c 

L61 13; “VISIBILITY  DISTRIBUTION  NO.",Visdtb 
L6 1 13 ; " TOW  DISTRIBUTION  NO.M,Towdlb 
L6115; "DEPTH  DISTRIBUTION  NQ.",Dphdtb 
Lb  1 1 3 ; "SEA  STATE  DISTRIBUTION  NO.",S*pdtb 
2D 

L6 1 16; * (AVERAGE  SEA  STATE  , Autss < Sspdt b ) , 1 

D.D,K 


SUCCESS 

L5024: 


GOTO  L307 
PRINT  USING 
IMAGE  22X , K , 

PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT 

PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
IMAGE  26X,K, 

PRINT  USING 
IMAGE  26X, K , 

PRINT 
PRINT 

PRINT  USING  L6117; "TASK", "TASK  PROB" , "TASK “ 

IMAGE  14X,K,3X,K,4X,K 
PRINT  USING  L6001J “CODE", "OF  SUCCESS- 
IMAGE  14X,K#3X,K 
PRINT 
PRINT 

PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT 

PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT 

PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT 

PRINT  USING 
IMAGE  10X,K 
PRINT  USING 
IMAGE  14X,K,? 

IMAGE  1  4X ,  K,  •: 

PRINT 
PRINT 

PRINT  USING  L6024;"*  THIS  IS  THE  P.O.S  OF  THE  ABILITY  TO  SEARCH  CR 


L6022 

L6013 

L6013 

L6013 

L6013 

L6013 

L6013 

L6013 

L6022 

L6012 

1.6013 

L6013 

L6012 

L6013 

L6022 

L6013 

L6013 

LS013 

L6012 

L6013 

L6013 

L6022 


“ON  SCENE: 

“ ASST“ , T  po*< 1 ) , "ASSIST" 
"30RD",Tpos<2),  1 
u MNAC *,Tpos<3),  1 
“ RTRV “ , T  pos<  4 ) , 1 
“WAIT" , Tpos<3) , 1 


BOARD" 

MONITOR  ACTIVITIES" 
RETRIEVE- 
WAIT" 

“WEQD",Tpos<6>, "WORK  EQUIPMENT  9  DRIFT" 
*WEQP",Tpos<7) , "WORK  EQUIPMENT  0  POSITION" 


-REDUCED  SPEED: - 

"SDIU“,Tpos<8>, -SEARCH  FOR  DISTRESSED  UNIT" 
“SESCU , Tpos<9) , "SLOW  ESCORT" 

-SPAT", TposC10), "SLOW  PATROL" 

°3PE0“, Tpos<l 1) "SEARCH  FOR  PEOPLE" 

“TOWS", 7po*< 12) , "TOWS" 


"CRUISE  SPEED: “ 

- ESCT" , Tpos<l3), 
MIDNT",Tpos<l4), 

"PATL" , Tpo*< 13) , 

- STGT" , T  pos  < 16), 

-TRPT- , Tpos(17) , "TRANSPORT" 
"TRST" , T  pos  C 1 3 ) , "TRANSIT" 

"FLANK  SPEED:" 


ESCORT" 

IDENTIFY" 

PATROL" 

♦  “  ,  "SEARCH 


FOR  TARGET" 


L6013; "RSPD" , Tpos< 19 > , "RESPOND" 
,3X, D.3£,K, 4X,K 
, 5X,D.3D,3X,K 


IMAGE  12X,K 
PRINT  USING 


PRINT  USING 
L6026:  IMAGE  16X,K 
PRINT  USING 
GHT  OF  CARGO)" 
L6027 !  IMAGE  10X,K 
PRINT 
DI3P  “ 


L6026 ; " IN  FINDING  THE  OBJECT  OF  THE  SEARCH  IS  DEPENDENT 
L6326; "  SCENARIO  <E.G.,  SEARCH  AREA)" 

L6027;"*****  DEPENDENT  UPON  SCENARIO  <E.G.,  FOOTPRINT  AN 

END  OF  THIRD  OUTPUT  PAGE.  PRESS  CONT  TO  GO  ON.  - 
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2333 
2400 
2405 
24  10 
2415 
2420 
2423 
2430 


BEEP 

PAUSE 

DI3P 

PRINT  PARAMETER  VALUES  FOR  EXPANDED  TASKS 


PRINT  PAGE 

PRINT  USING  L203l;"C  RAFT  PARAMETERS" 

2433  L2031:  IMAGE  24X,K 

2440  PRINT 

2443  PRINT 

2430  IF  .  Cod#>  100  THEN  L3U 

2433  PRINT  USING  L2032; “CRAFT  TYPE" , CrfnmS 

2460  L2032:  IMAGE  24X,K,3X,K 
2463  GOTO  L3I2 

2470  L31 1 :  PRINT  USING  L2033;"CRAFT  TYPE" ,M COAST  GUARD ", Crfnm* 

2473  L2033:  IMAGE  24X, K, 3X, K, IX, K 

2480  L312:  PRINT  USING  L2034;  "DISPLACEMENT1* ,  Idisp,  "TONS" 

2483  PRINT  USING  L2034; "LENGTH  ",  II  eng, "FEET" 

2490  PRINT  USING  L2034; "DESIGN  SPEED" , I dspd, "KNOTS" 

2493  L2034S  IMAGE  24X, K, 6D, 2X, K 

2300  PRINT  USING  L2033; "FUEL  FRACTION" , Fuf re 

2305  L20352  IMAGE  24X,K,3D.2D 
2310  PRINT 

2313  PRINT  USING  L21 12; “VISIBILITY  DISTRIBUTION  NO.",Visdtb 

2320  PRINT  USING  L2112;"T0W  DISTRIBUTION  NG.",Towdtb 

2323  PRINT  USING  L2U2;  "DEPTH  DISTRIBUTION  NO.",Dphdtb 

2338  PRINT  USING  L2112;"SEA  STATE  DISTRIBUTION  NO.",Sspdtb 

2335  L21122  IMAGE  28X,K,2D 

2340  PRINT  USING  L2 1 1 3 AVERAGE  SEA  STATE  , Ru«ss( Sspdtb) , ” > " 

2343  L21135  IMAGE  23 X,K,D.D,K 
2330  PRINT 

2333  PRINT 

2360  PRINT  USING  L2l 1 4; "TASK" , "CARGO" , M DRAFT" , "MANEUV" , "SEA" , "TOW 

2363  L2114:  IMAGE  l 2X , K , 2X, K , IX , K , 1 X , K , 2X , K , 2X , K 
2370  PRINT  USING  L21 13; "CODE" , "CPCTY" , "STATE" 

2373  L2113:  IMAGE  12X, K, 2X, K, 14X, K 
2380  PRINT 

2383  PRINT  USING  L21 16; "CC" , "DF" , "MN" , "SS" , "TW" 

2390  L21 16:  IMAGE  20X,  K, 4Xt  K, 4X , K , 4X, K , 3X , K 
2395  PRINT 

2600  PRINT 

2603  PRINT  USING  L2117J"0N  SCENE: 

2610  L2117:  IMAGE  8X,K 

2613  PRINT  USING  L21 18; "BRD" , " — " 

2620  PRINT  USING  L21 18; "FFF ", " — “ 

CG  VESSEL" 

2623  PRINT  USING  L2220; "FFO" , " — * 

THER  VESSEL" 

2630  L2220:  IMAGE  12X,K, 4X,K, 4X,K, 4X,K, 3X,D. DD,3X,K,3X?K 


2633 

NCE" 

PRINT 

USING 

L2U3; 

"GAS" 

2640 

PRINT 

USING 

L2222; 

"INS" 

2643 

PRINT 

USING 

L2118; 

"LEQ  " 

2630 

PRINT 

USING 

L2222; 

"  L  0 1  " 

2633 

AT* 

PRINT 

USING 

L2118; 

"L3B  " 

2660 

IES" 

PRINT 

USING 

L2113; 

"MAC" 

2663 

LL" 

PRINT 

USING 

12118; 

"MOS" 

2670 

CE  1 

PRINT 

USING 

L2222; 

"03R" 

2673 

R<  GENERAL) " 

PRINT 

USING 

L2222; 

"03C" 

2680 

PRINT 

USING 

L2U3; 

"  R  3  P  " 

11 


•  __  II 


Df<2>,Mn<2>,Li<2>, “ — “BOARD" 

Of  <.?">,  “FIGHT  FIRE  FROM 


II  __  II 


- " , L j < 5 ) , “  —  " f "FIGHT  FIRE  ON  ANO 
K,3X,K 

Df  a>,Nn<l),Ls<l>,  "  —  “,  "GENERAL  ASSISTA 


",  "INSPECTION" 

Df <7>,Mn<?),L*<7), ", "LOAD  EQUIPMENT" 
"-f  "  — ",Ls<3),  "  — "LOITER" 

'  —  *  ,  Df  <7)  ,Mn<7>  ,  Ls<7)  ,  ,  "LAUNCH  SMALL  30 

Df<3),Mn<3),La<3) , % "MONITOR  ACTIVIT 

Df  <3>,Mn<3),L*<3>,  "  — "MONITOR  OIL  3PI 

"  — "i"  —  ",L*<3>,"  —  "  ,  "ON  BOARD  ASSISTAN 

•*  —  »  9  "  —  "  ,  Ls <  5 >  ,  M  —  "  ,  "ON  SCENE  COMMANDS 

Df <2> , Mn<2) , Ll<2> , "  —  » , "RETRIEVE  BOARD  I 
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NG  PARTY " 
2635 

«  M 

PRINT 

USING 

L2U3;  "ROB 

w 

2690 

PRINT 

USING 

L2113; “RPE 

2693 

PRINT 

USING 

L2U8;  -RSB 

BOAT- 

2780 

PRINT 

USING 

L2U8;  "SSI 

L  INTEREST 

VESSEL* 

k 

2785 

PRINT 

USING 

L2222 ; “S2E 

2710 

PRINT 

USING 

L2118; " TWS 

LE" 

2713 

T  " 

PRINT 

USING 

L2118;  “ULQ 

1 

2720 

PRINT 

USING 

L2222J “WQB 

OM  SMALL  BOAT- 
2723  L2222:  IMAGE 

12X, X, 

i 4X,  K, 4X,  K, 

2730 

PRINT 

USING 

L2223; “WQD 

—  -  —  *,L5<6),  *•  —  ", -WORK  EQUIPMENT  0 

DRIFT- 

2733  L2223:  IMAGE  12X,  K,  4X,  Kf  3X,  D.  DD,  3X,  K,  3X,  D.  DD,  3X,  K,  3X,  K 

2740  PRINT  USING  L2US;  “WQF" ,  -  ,  Df  <  7>  ,  Mn<?)  ,  Ls<7>  ,  •  —  -  ,  “WORK  EQUIPMEM  0 

FIXED  POSITION- 

2743  U2118S  IMAGE  12X,  K,  4X,  K,  3X,  D.  DD,  2X,  D.  DD,  2X,  D.  DD,  3X,  K,3X,  K 
2730  PRINT 

2733  DISP  "  END  OF  FOURTH  OUTPUT  PAGE.  PRESS  CONT  TO  GO  ON.  “ 

2760  BEEP 

2763  PAUSE 

2770  DISP 

2773  PRINT  PAGE 

2790  PRINT  USING  L3031J-C  RAFT  PARAMETERS" 

2783  L303II  IMAGE  26X,K 

2790  PRINT 

2793  PRINT 

2800  IF  Cod«> 1 00  THEN  L306 

2805  PRINT  USING  L3032; "CRAFT  TYPE",Crfnra* 

2810  L3032:  IMAGE  26X,K,5X,X 
2813  GOTO  L307 

2820  L306:  PRINT  USING  L3033; "CRAFT  TYPE* , “COAST  GUARD " , CrfnmS 
2823  L3033:  IMAGE  2SX, K , 3X, K,  IX, K 
2830  PRINT 

2835  L387:  PRINT  USING  L3836; -DISPLACEMENT" , Idi sp, "TONS" 

2840  PRINT  USING  L3033; “LENGTH- , II #ng, "FEET" 

2843  L3033:  IMAGE  26X, K, 6X, 6D, 2X, K 

2830  PRINT  USING  L3036 J -DESIGN  SPEED- , Idspd , " KNOTS M 

2833  L3036 I  IMAGE  26X , K , 6D , 2X , K 

2860  PRINT  USING  L3037; -FUEL  FRACTION" , Fufrc 

2863  U3037:  IMAGE  26X,K,3B.D 
2870  PRINT 

2873  PRINT  USING  L3338; "VISIBILITY  DISTRIBUTION  NO.",Visdtb 

2880  PRINT  USING  L3038; -TOW  DISTRIBUTION  NO.",Towdtb 

2883  PRINT  USING  L3838; "DEPTH  DISTRIBUTION  NO.",Dphdtb 

2890  PRINT  USING  L2038; "SEA  STATE  DISTRIBUTION  NO.",Sspdtb 

2895  L3038:  IMAGE  30X,K,2B 

2900  PRINT  USING  L3039 AVERAGE  SEA  STATE*- , Av«*» < Sspdt b )  ,  "  > “ 

2903  L30395  IMAGE  38 XfK,D.D,K 

2919  PRINT 

2913  PRINT 

2920  PRINT  USING  L3001 ;  *  TASK  ",  "CARGO"  DRAFT"  ,  "MANEUV"  ,  “SEA  M  ,  14  TOW  '* 

2923  L3801:  IMAGE  14X, K, 2X, K, IX, K, IX, K , 2X, K , 3X, K 

2930  PRINT  USING  L3802;  “CODE**,  -  CPCTY-  ,  "STATE" 

2935  L3802:  IMAGE  14X, K, 2X, K, 14X, X 
2940  PRINT 

2943  PRINT  USING  L3003; "CC" , -DF" , "MN" , "SS" , "TW" 

2930  L3003  :  IMAGE  22X,  K  »  4X ,  K ,  4X,  K ,  <*X  ,  K ,  4X ,  K 

2933  PRINT 

2960  PRINT 

2963  PRINT  USING  L2013; “REDUCED  SPEED: ■ 
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SEARCH  FOR  DI3TR 


2970 

ESSED  UNIT- 
2973 

2980  L3006: 

2983 

RLE" 

2990 

2993  L3003: 
3000 

3083  L3007: 
3010 
3015 
3020 

3023  L3009: 
3030 


PRINT  USING  L3005;"SDU% -  —  ",Df<3>,  "~  ",U<3),  -  f  - 

PRINT  USING  L3006;  "SES",  " —  "  ,  " —  “  ,  "  —  " ,  Ls<9)  ,  " —  “  ,  "SLOW  ESCORT" 

IMAGE  14X,K,4X,K,4X,K,4X,K,3X#D.2D, 3X,K,3X,K 

PRINT  USING  L3005 ; “SPE" , "  —  " , Df  <  1 1 )  , "  —  " , Ls  < 1 1  > , "  —  ", "SEARCH  FOR  PEO 

PRINT  USING  L3903;  "SPT"  ,  "  —  "  ,  Df  <  10)  ,  "  —  H  ,H<  10)  ,  “  —  ",  "SLOW  PATROL " 

IMAGE  14X, K, 4X,K,3X,D.2D,3X,K,3X,D.2D,3X,K,3X,K 

PRINT  USING  L3907;  "TOW"  -  ,Mn<12>  ,L*<  12>  ,  Tu<  12)  ,  "TOW" 

IMAGE  14X,K,4X,K,4X,K,3X,D.2D,2X,  D . 2D , 2X , D . 2D , 2X , K 
PRINT 

PRINT  USING  L3013; "CRUISE  SPEED:" 

PRINT  USING  L3O09; "ESC" , " — — “ , " — ",Ls<13),M — ■ , "ESCORT" 

IMAGE  14X,K,4XfKf 4X,  K,  4X,  K,  3X,  D.  2D,  3X,  K,  3X,  K 

PRINT  USING  L3010; "IDC", " —  Mn<  14)  ,  Ls<  14)  IDENTIFY  CRAFT 


3033 

3040  L3010 
3045 

3030 

• 


PRINT  USING  L3810;  "IDF",  Mn< 14) , Ls< 14) 
IMAGE  14X,K,4X,K,4X,K,3X,D.2D,2X,D.2D,3X,K,3X,K 
PRINT  USING  L3011;  "PAT",  "~",Ls<  13),  " 
PRINT  USING  L3011;  "SFL",  "  —  H  —  ",LsC18),  " 


", "IDENTIFY" 
"PATROL" 

"SEARCH  FOR  FLEET 


3033  L3011: 

3060 

Pm 

3063  L3012: 
3070 

3073  L3013: 
3080 


IMAGE  14X,K,4X,K,4X,K,4X,K,3X,D.2D,3X,K,3X,K 

PRINT  USING  L3012;  "SSH",  "  —  ",DfC16),“  —  ",L*(16),"~ ",  "SEARCH  FOR  SHI 
IMAGE  14X,K,4X,K,3X,D.2D,3X,K,3X,D.2D,3X,K,3X,K 

PRINT  USING  L3013;  "TEQ"  ,  Cc  <  1 7)  Ls <  1 7)  TRANSPORT" 

IMAGE  14X,K,3X,D.2D,3X,K,4X,K,3X,D»2D,3X,K,3X,K 

PRINT  USING  L3014;  "TPE",  "  —  “  —  ",Li<13),  "  —  "TRANSPORT  PEOPLE 


3083  PRINT  USING  L3014; "TRA" , " — ", " — “  , 

3090  PRINT 

3093  PRINT  USING  L3013; "FLANK  SPEED:" 

3100  L30135  IMAGE  10X,K 

3103  PRINT  USING  L3014;  "DSH"  , 

3110  PRINT  USING  L3014;  "  INT*  Ls<19)  ,  ' 

3113  L3014 :  IMAGE  1 4X ,  K,  4X, K, 4X, K , 4X, K , 3X, D . 2D , 3X, K, 3X,  K 
3120  PRINT 

3123  PRINT 

3130  PRINT  USING  L3016;"***  DEPENDENT  UPON  SCENARIO  <E.G.,  FOOTPRINT  AND 

WEIGHT  OF  CARGO- 

3133  L3016:  IMAGE  10X,K 


1 ,  LsC  18)  ,  "  —  ",  "TRANSIT" 


■  —  %Ls<  19),  "  —  "  ,  "DASH" 
•INTERDICT- 


3140 

3143 

3130 

3133 

3160 

3163 

3170 

3173 

3180 

3183 

3190 

3193 

3200 

3203 

3210 

3213 

3229 
3225 
3233 
3233 
3240 
3243 

3230 
3233 
3260 


PRINT 
DISP  " 
BEEP 
PAUSE 
DISP 


END  OF  FIFTH  PAGE  OF  OUTPUT.  PRESS  CONT  TO  GO  ON." 


PRINT  EXPANDED  TASK  PROBABILITIES  OF  SUCCESS 

TPOSCi)  *ASST  *GAS 
TPQS< 2)  «BGRD*BRD*RBP 
TPGS<3)  ^MNAC*SS I *MAC*MOS 
TPOS<  4 )  *RTRV»ROB»RPE 

TPOS  <  3)  »WAIT»FF0«INS*L0I*QBA«SZE*03C*WQB 
TPOS<  6)  *WEQD»WQD 

TPOS < 7)  *WEaP»FFF»LEQ»LSB«RS3«TWS»ULQ*WQF 

TP0S<8)  -SDIU-SDU 

TP0S<9)  3SESC*SES 

TPOS<10)»SPRT«SPT 

TPOS<ll)«SPEO-SPE 

TPOS< 12)*TOWS«TOW 

TPOS  C 13) »ESCT*£SC 

TPOS < 1 4) *  I DNT ■ I DC* I DF 

TPOS  < 1 3 ) *PATL*PAT 

TPOS< 16)*STGT»SSH 

TPOS  <  17)  *TRP~*  TEG  **•*•*■* 
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3  263 
3270 
3273 
3230 
3233 
E  3  : 
3290 
3293 
3300 
3303 
3310 
3313 
3320 
*3323 
3330 
3333 
3340 
3343 
3330 
3333 
3360 
3363 
3370 
3373 
3360 
3383 
3390 
3393 
3400 
3403 
3410 
3415 
3420 
3423 
3430 
3433 
3440 
3443 
3430 
3453 
3460 
3463 
3470 
3473 
3480 
3483 
3490 
3493 
3300 
3303 
3310 
3313 
3320 
3323 
3530 
3533 
3340 
3343 
3330 
3533 
3360 
3363 
3370 
3373 
3380 
3383 


TPOS ( 13>*TRST*SFL*TPE*TRA 
TPOS  <  19)**R$PD*INT  =  DSH 

PRINT  PAGE 

PRINT  USING  L703 1 ; "T  A  3 


L7031 : 


L7032: 

L706: 
L7033: 
L707 : 
L7001: 

L7802! 

L7003: 

L7804I 


L7U2S 

L7U3! 

L7003: 

L7006: 

U 7007: 


PROBR3ILITIE 


OF  S  U  C  C 


IMAGE  i 3X , K 

PRINT 

PRINT 

IF  Cod€>100 
PRINT  USING 
IMAGE  17X,K, 
GOTO  L707 
PRINT  USING 
IMAGE  17X,K, 
PRINT  USING 
IMAGE  l 7X, K , 
PRINT  USING 
IMAGE  17X,K, 
PRINT  USING 
IMAGE  17X,K, 
PRINT  USING 
IMAGE  r7X,Kt 
PRINT 

PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
IMAGE  21X,K, 
PRINT  USING 
IMAGE  21X,K, 
PRINT 
PRINT 

PRINT  USING 
IMAGE  1 4X , K , 
PRINT  USING 
IMAGE  14X,K, 
PRINT 
PRINT 

PRINT  USING 
IMAGE  !0X,K 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 


THEN  L706 

L7032; "CRAFT  TYPE" , Crf nmS 
5X,K 

L7033; "CRAFT  TYPE COAST  GUARD" , Crfnm* 

3X , K , 1 X ,  K 

L7001; "DISPLACEMENT", Idlsp, "TONS “ 
oD, 2X, K 

L7002; "LENGTH" , 1 1 *ng, "FEET" 

6X,6D,2X,K 

L7003; "DESIGN  SPEED" , Idspd, “KNOTS" 

6D,2X,K 

L7004; "FUEL  FRACTION" , Fufrc 
3D, 2D 

L71 12* "VISIBILITY  DISTRIBUTION  NO.",V1sdtb 
L7 112; "TOW  DISTRIBUTION  NO.",Towdlb 
L7112; “DEPTH  DISTRIBUTION  NO.",Dphdtb 
L71 12; "SEA  STATE  DISTRIBUTION  NO.",Sspdtb 
2D 

L71 13; "< AVERAGE  SEA  STATE*" , Au«ss < Sspdt b >,") “ 
D.  D,  K 


L7005; "TASK" , "TASK  PROS. ", "TASK" 
3X,K, 4X,K 

L7006; "CODE" , "OF  SUCCESS" 

3X,  K 


L7007 ; "ON  SCENE:" 


L7008: 


IMAGE 

PRINT 


14X,X, 


L7008 
L7008 
L7008 
L7000 
L7008 
L7008 
L7008 
L7008 
L7008 
L7008 
u7008 
i-  7  0  0  8 
L7008 
L7008 
L7008 
L7008 
L7009 
L7008 
L7003 
L7008 
L7003 
L7008 
L7008 
6X,D 


"  BRD" 
"FFF" 
"FFO" 
"GAS" 
"INS" 
"LEQ" 
"LOI" 
"LSB" 
"MAC" 
"MOS" 
"OBA" 
"OSC" 
"  RBP" 
"ROB" 
"  RPE" 
"  RSB" 
"SSI" 
*SZE" 
"TWS" 
"ULQ" 
"  WQB" 
"WQD" 
"UQF" 
3D, 5X, 


, Tpos<2> , 
, Tpos<7) , 
, Tpos<3> , 
, TposC 1 > , 
, Tpos<3) , 
, Tpos<7) , 
, Tpos<3) , 
, Tpos<7) , 
» T  pos  <  3 ) , 
j,  Tpos<3)  , 
Tpos<3> , 
ft Tpos<3> , 
, Tpos<2> , 
, Tpos<  4> , 
, T  pos  C  4  > , 
, Tpcs<7>  j 
, T  pos<3> i 
, T  pos<  5) , 
,Tpos<7^, 
, Tpos<  7) , 
, Tpos<3> , 
, Tpos<6> , 
, Tpos<7)  j 
K 


“BOARD" 

“FIGHT  FIRE  FROM  CG  VESSEL" 

“FIGHT  FIRE  ON  ANOTHER  VESSEL" 
“GENERAL  ASSISTANCE” 

“  INSPECTION" 

“LOAD  EQUIPMENT" 

“LOITER" 

“LAUNCH  SMALL  BOAT" 

“MONITOR  ACTIVITIES" 

“MONITOR  OIL  SPILL" 

“ON  BOARD  ASSISTANCE" 

“ON  SCENE  CO MM AND ER< GENERAL)" 
“RETRIEVE  BOARDING  PARTY" 

“RETRIEVE  OBJECTS" 

14 RESCUE  PEOPLE" 

“RETRIEVE  SMALL  BOAT" 

-STAKEOUT  SPECIAL  INTEREST  VESSEL" 
“SEIZE" 

"TAKE  WATER  SAMPLE" 

“UNLOAD  EQUIPMENT" 

“WORK  EQUIPMENT  FROM  SMALL  BOAT" 
“WORK  EQUIPMENT  3  DRIFT" 

“WORK  EQUIPMENT  9  FIXED  POSITION" 


C-10 


END  OF  SIXTH  PAGE  OF  OUTPUT.  PRESS  CONT  TO  GO  ON 


3399 
3393 
3600 
3603 
3610 
3613 
E  S  < 
3620 
3623 
3630 
3633 
3640 
3643 
3630 
3633 
3660 
3663 
3670 
3673 
3680 
3683 
3690 
3693 
3700 
3703 
3710 
3713 
3720 
3723 
3730 
3733 
3740 
3743 
3730 
3733 
3760 
3763 
3770 
3773 
3780 
3785 
3790 
3795 
3800 
3303 
3810 
3813 
3320 
3823 
3830 
3833 
3840 
3843 
3838 
3833 
3360 
3863 
3870 
3873 
3880 
3883 
3890 
3393 
3900 
3903 
3S10 


L3031 : 


L.3032: 

L306: 
L8033: 
L807: 
L8034 ; 

L8033: 

L8036: 

L80373 


L8112S 

1.8113: 

L3001: 

L8002: 

L3003: 


DISP  " 

BEEP 

PAUSE 

DISP 

PRINT  PAGE 

PRINT  USING  L303 1 ; “T  A 


IMAGE  13X,K 

PRINT 

PRINT 

IF  Cod#> 1 00 
PRINT  USING 
IMAGE  17X,K, 
GOTO  L807 
PRINT  USING 


3K  PROBABILITIE 


OF  S  U  C  C 


THEN  L806 

LS032; “CRAFT  TYPE” , Crf nml 
5X ,  K 

L3033; “CRAFT  TYPE" , “COAST  GUARD "  , Crf nm$ 

5X,K, IX, K 

L8034;  “DISPLACEMENT1* ,  Idisp,  “TONS  M 
6D, 2X, K 

L8033J  “LENGTH1*,  IUng,  “FEET“ 

6X,6D,2X,K 

L8036; “DESIGN  SPEED“ , Idspd, “KNOTS" 

6D, 2X, K 

L3037;  “FUEL  FRACTION*' ,  Fuf  rc 
3D. 2D 

L3112; “VISIBILITY  DISTRIBUTION  NO.“,V1sdtb 
L8U2;  “TOW  DISTRIBUTION  NO.“,Toudtb 
L81 12; “DEPTH  DISTRIBUTION  NO.“,Dphdtb 
L8 1 12; “SEA  STATE  DISTRIBUTION  NO.“,S*pdtb 
2D 

L8 1 13; “ < AVERAGE  SEA  STATE* “ , Av#ss(Sspdt b) , “ > “ 
D.D,K 


IMAGE  1 7X , K, 

PRINT  USING 
IMAGE  17X, K, 

PRINT  USING 
IMAGE  17X,K, 

PRINT  USING 
IMAGE  1 7X, X , 

PRINT  USING 
IMAGE  17X,K, 

PRINT 

PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
IMAGE  21X,K, 

PRINT  USING 
IMAGE  21X,K, 

PRINT 
PRINT 

PRINT  USING  L8001;  "TASK**,  “TASK  PROB",“TASK“ 

IMAGE  14X, K, 3X, K, 4X, K 

PRINT  USING  LS802;  “CODE“ ,  “OF  SUCCESS" 

IMAGE  14X,K,3X,K 

PRINT 

PRINT 

PRINT  USING 
IMAGE  10X, K 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT 

PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT 


L3003; “REDUCED  SPEED: “ 


L3804 

L8003 

L3004 

L3003 

L3003 

L3003 

L3005 

L3003 

L3003 

L300S 

L8005 

LS004 

L3003 

L3003 

L3003 


“SDU“, Tpo*<3>, “SEARCH  FOR  DISTRESSED  UNIT" 
“SES“,Tpo*<9>, “SLOW  ESCORT" 

“SPE",Tpos<ll>, “SEARCH  FOR  PEOPLE" 
"SPT“,Tpos<10>, “SLOW  PATROL" 

“TOW" , T  pos< 12) , “TOW" 


‘CRUISE  SPEED!" 
*ESC",7po*<13:>,  " 
’  IDC “ , Tpos  <14),  “ 
■IDF*lTpos<14>,tt 
‘PAT** ,  Tpos<  13>  ,  4 
*SFL“,Tpo*<18>, 
•SSH-^posdS), 
•TEQ" , T  posC 17), " 
*TPE“,"*pos<13>, “ 
‘TRA“ , TposC 18) t " 


ESCORT" 

IDENTIFY  CRAFT" 
IDENTIFY  FLEET" 
PATROL'* 

SEARCH  FOR  FLEET" 
“SEARCH  FOR  SHIP" 
TRANSPORT  EQUIPMENT" 
TRANSPORT  PEOPLE" 
TRANSIT” 


L8004: 

L3003: 


PRINT  USING  L3003; “FLANK  SPEED: “ 

PRINT  USING  L3003:-DSH“,Tpos<19>, “DASH- 

PRINT  USING  LS005;  **  1NT"  ,  Tpcs<  19),  “INTERDICT" 

IMAGE  14X,K,6X,D.3D,K,4X,K 

IMAGE  i4X,K,6X,3.3D,3X,K 

PRINT 

PRINT 


C-ll 


3913  PRINT  USING 

CRAFT'S  SUCCESS  M 


3920  L8006: 

3923 

UPON** 

3930 

3933  L8007: 

3940 

3943 

0  WEIGHT  OF 

3930  L8008: 

3955 

3960 

3963 

3970 

3973 

3980 

3983  ! 


IMAGE  1 2X  , K 
PRINT  USING 

PRINT  USING 
IMAGE  16X,K 
PRINT 

PRINT  USING 
CARGO) * 

IMAGE  10X, K 
PRINT 
DI$P  * 

PAUSE 

DI$P 

PRINTER  IS  1 
RETURN 


L3006; "*  THIS  IS  THE  P.0.3.  OF  THE  ABILITY  TO  SEARCH. 

L3007; • IN  FINDING  THE  OBJECT  OF  THE  SEARCH  IS  DEPENDENT 
L3Q07; “SCENARIO  <E.G.  SEARCH  AREA) " 

L3008;  l'*4***  DEPENDENT  UPON  SCENARIO  <E.G.,  FOOTPRINT  AN 

END  OF  SPTPQS  OUTPUT.  PRESS  CONT  TO  GO  ON  " 

6 


3990  Vwt*w: 
3995 
4000 
4003 
4010 
4013 
4020 
4025 
4030 
4035 
4040 
4845 
4038 
4035 
4060 
4063 
4070 
4073 
4088 
4085 
4090 
4893 
4100 
4105 
4110 
4113 
4120 
4123 
4130 
4133 
*140  Ptwd: 
4143 
4 1  30 
4133 
wdt b) , 

4160 
4  163 
4173 


! 


!  CONVERTED  SUBROUTINE  VWTAV 
V*wg*0 
Auf  urt *0 
FOR  1*1  TO  3 
Sso* I- 1 
FOR  J*1  TO  9 
S**Sso+J/ 10 
FOR  K-l  TO  3 
FI 

Pvi  ns*«FNFpdss*<Code,  Di  sp  1 ,  Rat  * ,  Dip«*d,  Ss,  FI  ag) 

VI n*»«B*pt«d*Pui ns*/100 
Vwvi s*MIN< Vi nss, Vmxui s<K)  ) 

Pof is*S*prbd< I )/9 
Pofui  t«VUdis<K,  Visdtb) 

V*M<3*V*vg>Vww  i  s*Pof  ss*Pof  v i  s 
Fueus*«Fuc I rt  <R*t #) 

IF  Vnixvi  *<KXVin*j  THEN  Fu*us*-Vi  sf  u#<K> 

Avf urt *Auf urt  +  Fu€us*+Pof 5s*Pof w  i  s 

NEXT  K 

NEXT  J 

NEXT  l 

RETURN 

PTWD 

TOW  DISPLACEMENT  CUMULATIVE  PROBABILITY  D ISRTIBUTION. 


PTOWDCD) 
AVTWDS  * 


*  PROBABILITY  THAT  CRAFT  TO  BE  TOWED  HAS  DISPLACEMENT 
AVERAGE  DISPLACEMENT  VALUE  THAT  CAN  BE  TOWED 


CONVERTED  SUBROUTINE  PTWD 
I  n»Towd*p 

A* Towdi s<6, Towdtb) 

Cut*FNF~8< In, 8, 3, Toudi s< 1 , Towdtb) ,0,Towdi:s<2,7oudtb),.2,Towdi3<3,7o 
4,Towdr2,C4,  Tcwdtb)  ,  .  6,  Towdi  4<3,  Towdtb)  , . 8 , A,  1,999999,  1) 

Ptowd-Cut 
In*Pt  owd/2 

Qut»FMFf3<  In,  0, 8, 0,  Toudi  s<l, Towdtb),. 2,  Towdi  s<2,  Towdtb) , . 4, Towd i s<3 


,  Towdtb)  ,  .  5,  Towdi  s<4,  Towdtb)  ,  .  3,  Towdi  s<3,  Towdtb),  i  ,  A ,  1, 999999) 


4173 

Awt  wds®Out 

4180 

RETURN 

4183 

i 

4190 

j 

* * 444*44*4* * '»#+**♦++*■♦  - 

4193 

j 

4200 

1 

4  ★♦♦*4*»**4* 4  *4*44444  4 

4203 

» 

4210 

t 

FUNCTION  FBSSPD 

4213 

1 

SUBPROGRAMS 


***.  +  *•***•*  -it-  *  *  •*  *•**  ***  *  **  +  4  4*  4  4  4  4  4 


C- 12 


4229 

4223 

4239 

4233 

4249 

4245 

4239 

4233 

4269 

4263 

4279 

4275 

4239 

4283 

4290 

4295 

4300 

4393 

4310 

4315 

4320 

4323 

4330 

4333 

4340 

4345 

4330 

4333 

4360 

4365 

4370 

4375 

4380 

4383 

4390 

4393 

4400 

4403 

4410 

4413 

4420 

4423 

4430 

4435 

4440 

4445 

4430 

4433 

4460 

4463 

4470 

4473 

4480 

4483 

4499 

4493 

4300 

4305 

4510 

4515 

4320 

4525 

4538 

4535 

4548 

4545 


! 

f 

! 

! 

! 


L20 

L30 

L48 

L30 

L60 

L70 

L80 

L99 

I 

I 

i 

j 

I 


3ASE  SPEED 

i USED  FOR  BASE  CURVES  FOR  HPINST, ACCEL, 3RAKG, &  TURN ) 


DEF  FNFbsspd(Code) 
IF  (Code-19)  OR 
IF  < Code* 11)  OR 
IF  Code-30  THEN 
IF  Code-40  THEN 
IF  Code-50  THEN 
IF  Code-60  THEN 
IF  Code-70  THEN 
IF  Code-80  THEN 
RETURN  Fbsspd 
FNEND 


<  Code-29) 
<Cod*«79) 
Fbsspd-69 
Fbsspd-43 
Fbsspd-39 
Fbsspd-20 
Fbsspd»48 
Fbsspd-25 


OR  <C ode-21)  THEN 
THEN  Fb3ipd-40 


Fbsspd-59 


FHPFCT 


FRACTION  OF  INSTALLED  HORSEPOWER  UTILIZED 

DEF  FNFhpf ct (Code, Rat e, Fctdsp, Fctbsp) 

IF  (Rate-1)  OR  (Rate-2)  THEN  Pet dsp- l 09*Fc t dsp 

IF  (Rate-3)  OR  (Rate-4)  OR  (Rate«0>  THEN  Pc t dsp- 109*Fc t bsp 

IF  (Code<  >19)  AND  (CodeOil)  THEN  L20 

Hppc t -FNFf 3 (Pet dsp, 0,3,20, 14,40,48,33,73, 100,  100) 

GOTO  L99 

IF  <Code<  >20)  AND  (Code<>21)  THEN  L30 
IF  Petdsp<-10  THEN  Hppet-10 

IF  <Pctdsp<*30)  AND  <Petdsp> 10)  THEN  Hppc t »2*Pc t dsp- 1 9 
IF  (Pctdsp<-80)  AND  (Pctdsp>30)  THEN  Hppct ». 20*Pctdsp+44 
IF  Pctdsp>80  THEN  Hppct»2*Pctdsp-100 
GOTO  L99 

IF  Code<  >30  THEN  L40 

Hppc t -FNFf 3<Pct  dsp, 0,  10,80,60,  100,190) 

GOTO  L99 

IF  Code<  >40  THEN  L33 
IF  Petdsp<-20  THEN  Hppct-5 

IF  <Pctdsp<«40)  AND  <Petdsp>20)  THEN  Hppct-2. 75*Pct dsp-50 
IF  <Pctdsp<»80)  AND  <Pctdsp>40)  THEN  Hppc t * . 23*Pc t dsp+59 
IF  Pctdsp>80  THEN  Hppct*l . 5*Pct dsp-30 
GOTO  L99 

IF  Code<  >50  THEN  L60 

IF  Pctdsp<-10  THEN  Hppc t * . 30*Pc t dsp 43 

IF  <Pctdsp<«30)  AMD  (Pctdsp>l0>  THEN  Hppc t *2. 5*Pc t dsp- t 3 
IF  <Pctdsp<-80)  AND  <Pctdsp>30)  THEN  Hppc t - . 20*Pc t dsp+54 
IF  Pctdsp>90  THEN  Hppct*l . 5*Pct dsp-50 
GOTO  L99 

IF  Code<  >60  THEN  L70 

Hppc t -FNFf 4<Pct dsp, 0,5, 33, 12,70,45,100,100) 

GOTO  L99 

IF  Code<  >70  THEN  L80 
IF  Pctdsp<-10  THEN  Hppct-5 

IF  Pctdsp>10  THEN  Hppct-1 . 05356»Pc t dsp-5. 55556 
GOTO  L99 

IF  Pctdsp<*20  THEN  Hppct-10 

IF  (Pc t dsp< -60 )  AND  <Pctdsp>20)  THEN  Hppc t - . 25*Pc t dsp+5 

IF  Pctdsp>60  THEN  Hppct-2*Pc tdsp- 100 

Fhpf ct -Hppc t/ 100 

RETURN  Fhpfct 

FNEND 


ENGINE  TYPE 

DEF  FNF*n<g<Code,  Rate) 
OPTION  3ASE  l 
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4330 

4335 

4360 

4363 

4373 

4373 

4380 

4383 

4390 

4393 

4600 

4603 

Rate 

4618 

4613 

4620 

4623 

4630 

4633 

4648 

4645 

4630 

4633 

4668 

4665 

4670 

4673 

4680 

4683 

1) 

4690 

4693 

4700 

4703 

4710 

) 

4713 

4720 

4723 

4738 

4733 

4740 

4745 

4730 

4733 

4760 

4763 

4770 

4773 

4780 

4755 

4790 

4793 

4800 

4833 

4610 

4815 

4820 

w80 

4823 

4830 

4833 

4840 

4843 

4830 

4835 


DIM  01  1  dsl  <4)  , Allgt  <4>  #  Gt3dsU4>  t  Gt  l>jiU4) 

INTEGER  01  Idsl  ,01  1 gt , Gt  3ds 1  ,  Gt  1  ds  1  ,  F*ng 

DfiTfl  2,2, 2, 2 

MAT  READ  01 Idsl 

DATA  1,  1,  1,  1 

MAT  READ  01 1 gt 

DATA  l,  1,1,2 

MAT  READ  Gt3dsl 

DATA  1,2, 2,2 

MAT  READ  Gtldsl 

IF  <Code-il)  OR  <Code«30>  OR  CCode-79)  THEN  Feng«A 1 1 ds 1 < Rat e ) 

IF  <Code-20>  OR  <Code-21 >  OR  CCode-60)  OR  <Code»39>  THEN  F*ng-A1lgt< 

IF  <Code-10)  OR  <Code»40>  THEN  Feng-Gt 3ds 1< R At  * ) 

IF  Code-88  THEN  Feng-Gt ld*l CRate) 

RETURN  Feng 
FNEND 

FMVSWH 


MOTION  OF  BASE  CRAFT  VS.  WAVE  HEIGHT  (FOR  D I 3PLACEMENT* 1 00  TONS 
EXCEPT  TYPE  60  DISPLACEMENT-1300  TONS)  AND  REVERSE 


DEF  FNF«usuh<Code, Rate, Uuhtbs, FI ag) 

In«Wvht  bs 

; 

IF  Code<  >10  THEN  Lll 

IF  <Rate*i)  OR  <Rate-2>  THEN  Gut -FNFf f 3<  In,  FI  ag,  0,0,  13,  .3,  13, 


IF  Rate-3  THEN  Out -FNFf f < In, FI ag, 3, 0, 3, 1 ) 

IF  Rate-4  THEN  Out»FNFff < In, FI ag, 0,0, 12, 1) 

GOTO  L999 

Lll :  IF  Code<  >11  THEN  L20 

IF  <Rate»l>  OR  CRate-2>  THEN  Out -FNFf f3< In, FI ag, 0,0, 5, .23,3, 1 

IF  Rate-3  THEN  Out-FNFf f (In, FI ag, 0, 0, 10, l ) 

IF  Rate-4  THEN  Out-FNFff <In, FI ag, 0, 0, 14, 1) 

GOTO  L999 

L20:  IF  < Cod*<  >20>  OR  <Code<>21)  THEN  L40 

IF  Rat*-l  THEN  Out  -FNFf f 3 (In, Flag ,0,0,4, .2,3, 1) 

IF  Rate-2  THEN  Out-FNFf f3< In, Flag, 0,0, 4, .2,6, 1) 

IF  Rate-3  THEN  Out -FNFf f 3< In, Flag, 0,0, 4, ,2,7, l) 

IF  Rate-4  THEN  Out -FNFf f3< In, FI ag, 9, 0, 4, . 2, 10, 1 ) 

GOTO  L999 

L40I  IF  Code<  >30  THEN  L30 

IF  Rate-l  THEN  Out -FNFf f 3< In, FI ag, 0,0, 3,. 2, 7, 1) 

IF  Rate-2  THEN  Out -FNFf f3< In, FI ag, 0,9, 3, .2,8, 1) 

IF  Rat««3  THEN  Out-FNFf f3<  In, FI ag, 0,0, 3,  .2,  10,  1) 

IF  Rate-4  THEN  Out -FNFf f3< In,Fl ag, 0, 0, 3, . 2, 12, 1 ) 

GOTO  L999 

L30I  IF  Code<>48  THEN  L50 

IF  Rat  e*  t  THEN  Out-FNFf f< In, Flag, 9, 0,3, 1) 

IF  Rate-2  THEN  Out-FNFff < In, Flag ,8,0, 4, l) 

IF  Rate-3  THEN  Out-FNFf f< In, FI ag, 3, 0,9, 1) 

IF  Rate-4  THEN  Out-FNFf f < In, FI ag, 8, 0, 12, 1) 

GOTO  L999 

L69:  IF  <Code<>38)  OR  <Code<>79)  OR  <Ccde<>80)  OR  CCode<>100>  THEN 


IF  Rate-1  THEN  Out-FNFf f C In, FI ag, 3, 0, 3, 1 ) 

IF  Rate-2  THEN  Out-FNFff < In, FI ag, 8, 9, 6, 1) 

IF  Rate-3  THEN  Out-FNFf f <In, FI ag, 8, 0, 3, 1 ) 

IF  Rate-4  THEN  Out-FNFf f< In, FI ag, 0,0, 12,1) 
GOTO  L999 
f  FOR  CODE  »  60 

L80:  Out-FNFf f3< In, FI ag, 0, 0, 17.143, .343,21.91, 1) 
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4860 
4863 
4870 
4873 
4880 
4883 
4890 
4893 
4900 
4903 
4910 
4913 
4920 
4923 
4938 
4933 
4940 
4943 
4950 
4933 
4960 
4963 
4970 
4973 
4980 
4983 
4990 
4993 
5000 
3003 
5018 
3013 
5020 
3023 
3030 
3033 
3040 
3045 
3050 
5033 
5060 
3063 
3070 
3073 
5080 
3083 
5090 
3093 
3100 
3103 
5110 
5113 
3120 
3123 
3130 
3133 
5140 
3143 
3130 
3133 
3160 
3163 
5 1  70 
3173 
3130 
3133 


L999:  Fmuswh*Out 

!  IF  FmvswhM  THEN  Fmvsuh*! 

IF  F1*g-2  THEN  Fmvswh»Qut 

RETURN  Ffuwsuh 

FNEND 

j 

!  FCPBSS 

j 

!  CUMULATIVE  PROBABILITY  OF  SEA  STATE 
!  FCPBS3(SS>»  PROB  THAT  SEA  STATE  <  OR  *  SS 

; 

DEF  FNFcpbss(3sprob<*>, Sspdtb, Ss> 

OPTION  BASE  l 
INTEGER  Is* 

IF  Ss<8  THEN  L30 
Fcpbss- 1 
RETURN  Fcpbss 

L50:  IF  Ss<»0  THEN  Ss»4 

Iss»Ss-. 3 
Intrp-Ss-Iss 
Prtosu»-0 
FOR  J-l  TO  Is* 

Prbsu«-Prbsu«+Ssprob< J, Sspdtb) 

NEXT  J 
lntss*Iss+l 

Fcpbss-Prbsum+Int rp*Ssprob< Int ss,  Sspdtb) 

RETURN  Fcpbss 
FNEND 

j 

!  FF4 

! 

I  FINDS  Y  VALUE  ON  A  BROKEN  LINE  OF  FIVE  POINTS,  GIVEN  X  VALUE 
!  AND  THE  FIVE  POINTS.  (ASSUMING  LINE  EXTENDS  INFINITELY) 

| 

DEF  FNFf4(X,Xl, Y1,X2,Y2,X3, Y3,X4, Y4) 

IF  X< -X2  THEN  Ff 4-FNFf (X, XI , Y1 , X2, Y2) 

IF  <X>X2)  AND  (XC-X3)  THEN  Ff 4»FNFf <X, X2, Y2, X3, Y3) 

IF  X>X3  THEN  Ff 4-FNFf (X, X3, Y3, X4, Y4) 

RETURN  Ff 4 
FNEND 


1  FINDS  Y  VALUE  ON  A  STRAIGHT  LINE  GIVEN  X  VALUE  AND  TWO  POINTS 
!  ON  THE  LINE.  (ASSUMING  LINE  EXTENDS  INFINITELY). 

i 

DEF  FNFf (X , XI , Y1 , X2, Y2) 

IF  A3S(X2-X1 X.0001  THEN  LI 
SI  op«-< Y2-YX  )/'<X2-Xl) 

IF  A3S(Y2-Y1)< .0001  THEN  S1op**0 
Ff -SI opc*X+Yl-S1 0D€*X1 
RETURN  Ff 

Li:  Ff-<Yl+Y2)/2 

RETURN  Ff 
FNEND 

; 

i  FPDSSS 

i 

!  PERCENT  DESIGN  SPEED  VS  SEA  STATE  AND 
!  SEA  STATE  VS  PERCENT  DESIGN  SPEED 

j 

!  FOR  CRUISE  :  MAXIMUM  IS  LIMITED  BY  LINE  PARALLEL  TO  INITIAL 
!  FLANK  LINE  AND  STARTING  FROM  PERCENT  DESIGN  SPEED  AXIS 

•  AT  CU$PD<2) 

I 

!  FOR  REDUCED  SPEED:  MAXIMUM  IS  LIMITED  BY  LINE  PARALLEL  TO 
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3190 
3193 
3200 
3205 
3210 
3213 
3220 
5223 
5230 
3233 
3240 
3243 
5230 
3235 
3260 
5263 
3270 

3273  U10: 

3230 

3233 


SEA  STATE  AXIS  AT 

PERCENT  DESIGN  SPEED  *  CWSPD<3> ^DES IGN  SPEED*1O0 


DEF  FNFpdsss<Cod* ,  D  i  sp  1 ,  R  at  * ,  Dsp**d ,  3s ,  F 1  ag ) 

REAL  In, Di sp, Pcdsmx, Out 
In-Ss 

IF  Cod** 1 0  THEN  L10 

IF  Cod**  1 1  THEN  LU 

IF  <Cod**20>  OR  (Cod*-21 >  THEN  L20 

IF  < Cod**30)  OR  (Cod*-?0)  THEN  L30 

IF  (Cod**30>  OR  <Cod*-102>  OR  (Cod*«103>  THEN  L30 
IF  <Cod**106)  OR  (Cod**107>  OR  (Cod*»198)  THEN  L30 
IF  <Cod**103)  OR  <Cod**l 10)  OR  (Cod*-lll)  OR  (Cod**112)  THEN  L30 
IF  Cod**30  THEN  L30 

IF  Cod**60  THEN  L60 

IF  Cod*«40  THEN  L40 

IF  <Cod**101 )  OR  <Cod**104)  OR  (Cod**105)  THEN  L101 
IF  Rat**2  THEN  L1002 

IF  Di spl<«100  THEN  Out *FNFf f 4< In, FI ag, 0, 100,3,91.7,3,20,7,0) 

IF  <3i spl >108)  AND  <D 1 sp 1 <*200 )  THEN  Out -FNFf f 4< I n , F 1 ag, 0, 1 00 , 3 . 3 , 90 
.8,3.3,20,7.3,0) 

3290  IF  Di sp 1 >200  THEN  Out-FNFf f4< In, FI ag, 0, 130, 6, 90, 6, 20, 3, 0) 

3293  GOTO  L991 

3300  !  FOR  RATE  •  2  AND  CODE  *  10 

3303  L1032:  IF  Di spl<*100  THEN  Out*FNFf f 4( In , FI ag, 9 , 83 , 3, 76, 7 , 3, 20, 7 , 0 ) 

3310  IF  <Di spl >100)  AND  (Displ<*200>  THEN  Out -FNFff4 < I n , FI ag , 0, 33 , 3. 3 , 73 . 

8,3.3,20,7.3,0) 

3313  IF  Di spl >200  THEN  Out *FNFf f 4< In, FI ag, 0, 33, 6, 73, 6, 20, 13, 0) 

3320  GOTO  L999 

5323  ! 

3330  LU!  IF  Rat «»2  THEN  L1102 

3333  IF  D i  sp  1< *  1 00  THEN  Out*FNFf  f  4<  In,  FI  ag,  0,  100, 4. 3,  62. 3,  3.  18, 20, 7,  0) 

3340  IF  < D i sp 1 > 1 00 >  AND  (Displ<«200)  THEN  Out -FNFf  f  4<  In,  FI  ag,  0,  130, 5, 38. 3 

, 3.66,20, 7.3,0) 

3343  IF  Di spi >200  THEN  Out -FNFf f 4< In, F 1 ag, 0 , 180, 5. 3 , 34. 2, 6. 3 , 20 , 3, 0 > 

5330  GOTO  L99 1 

3333  ! 

3360  L1102:  IF  Di spl<*l00  THEN  Out*FNFf f4< In, FI ag, 0, 90, 4. 72, 30. 3, 3. 13, 20, 7 , 9) 
3363  IF  (Di spl > 100)  AND  <Displ<*200)  THEN  0ut-FNFff4( In, FI ag, 0, 90, 3. 23, 46 

,3.66,20,7.5,0) 

3379  IF  D i  sp l  >200  THEN  Out  *FNFf  f  4(  In,  FI  ag,  0, 90, 3. 8, 41 . 3, 6.  13,  20, 3, 0) 

5373  GOTO  L999 

3380  I 

3385  L20:  IF  Rat*«2  THEN  L1020 

3390  IF  Di spl<*20  THEN  Out -FNFf f ( In, FI ag, 0, 100, 3, 0) 

3393  IF  (Di spl >20)  AND  <Displ<*50)  THEN  Out*FNFf f 4( In, FI ag, 0, 100, 1 . 3, 100, 

2.5,30,4,0) 

3400  IF  < D i sp 1 >50 )  AND  (Displ<-100)  THEN  Out-FNFf f 4< In, F’ ag, 0, 100, 2, 100, 3 

,80,4.3,0) 

3435  IF  ( D i sp l > l 00 )  AND  (Dispt<*130)  THEN  Out -FNFf f 4( In, FI ag, 0, i 00 , 2. 3 , 1 Q 

0,3.3,30,3,0) 

3410  IF  (Di spi > 130)  AND  (Bispl<*200)  THEN  Out -FNFf f 4( In, FI ag, 9, 108, 3 , 189, 

4,30,3.3,0) 

3413  IF  D i sp i >200  THEN  Out *FNFff 4<  In,  FI ag, 0,  188,3.3, 100,4.5,30,6,9) 

3420  GOTO  L99 1 

3423  L1020I  IF  Dispi<*20  THEN  Out -FNFf f3( In, FI ag, 0, 33, , 45, 33, 3, 9) 

3430  IF  (Di sp 1 >20)  PND  <Displ<*50>  THEN  Out  * FNFf f4( In, FI ag, 0,35, 2. 23, 33, 2 

.3,39,4,0) 

3433  IF  (Di spl >30)  AN&>  (Di spt<*l08>  THEN  Out -FNFf f 4 ( In , FI ag , 0, 33, 2. 73 , 33 , 

3,30,4.3,0) 

3440  IF  (Di spl > 1 30)  RNB  (Displ<*l30)  THEN  Out -FNFf f4< In, F 1 ag, 0, 33, 3. 23, 33 

,3.3,30,3,0) 

3445  IF  < D i sp 1 > 1 30 )  AND  (Di sp l< -200)  THEN  Out-FNFf f4< In, FI ag, 0, 33, 3. 73, 33 

,4,30,3.3,0) 

3430  IF  D i sp  t  >208  THEN  Out-FNFf f4( In, FI ag, 0, 33, 4. 23, S3, 4. 3, 30, 6, 0) 

3433  GOTO  L999 
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5460  ! 

5465  L30: 

5479 
5475 

5480 

5435  L10305 

5490 

5495 

5500  ! 

5505  140: 

5510 

5515 

5523 

5525 

5530 

5533 

5348 

3343  ! 

3330  L1040: 

5333 

3360 

3363 

3370 

3573 

3388 

3385  I 

3398  L30: 

5393 

5600 

5603 

3610  L1030: 

3615 

3620 

3623  \ 

5630  L60: 
3633 
3640 
5645 

5638  L1068: 
3655 
5668 
5665  ! 

5670  L80: 
5673 
5688 
.3,0) 

3635 

6,0) 

5698 

5,3) 

5693 

0,7,0) 

5780 

3703 

5710  L1080: 

5713 

5.3,0) 

5720 

,6,0) 

3723 

6.5,0) 

3730 

5735 

3740 

5743  L101 : 
5730 


IF  Rate-2  THEN  L1030 

IF  Di sp 1 < - l 58  THEN  0ut*FNFff3CIn, FI ag, 8, 108, . 5, 108, 5. 3, 8) 

IF  D i sp  l  > 150  THEN  Out-FNFf f3< In, FI ag, 8, 188, 1 , 100, 6, 8) 

GOTO  L991 

IF  Di sp  t<- 158  THEN  Out -FNFf f 3 < In , FI ag , 9 , 37 . 5,  1 . 1 23 , 37 . 5 , 5 . 3 , 8  ) 

IF  D i sp 1 > 1 38  THEN  Out -FNFf f3< In,  FI  ag,  0, 37. 3, 1. 623, 37. 3, 6, 0) 

GOTO  L999 

IF  Rate-2  THEN  L1040 

IF  Di spl< -5  THEN  Out-FNFf f 3< In, FI ag, 0, 100, l . 72, 92, 5, 0) 

IF  Di spi<»20  THEN  Out-FNFf f3< In, FI ag, 8, 100, 2. 28, 39, 3. 3, 8) 

IF  Di spl<-50  THEN  Out-FNFf f3C In, FI ag, 0, 180, 2. 73, 85. 5, 6, 0) 

IF  Displ<*100  THEN  Out-FNFf f 3< In, FI ag, 0 , 100, 3. 3, 32. 3, 6. 3, 0) 

IF  Di sp l<-200  THEN  Out-FNFf f3< In, FI ag, 0, 100, 4. 1 , 79. 3, 7, 0) 

IF  Di  spl  >200  THEN  Out -FNFf  f  3<  In,  FI  ag,  0 ,  100 , 4 . 63, 77 . 3,  7 . 5, 0) 

GOTO  L99 l 

IF  Di spl<-5  THEN  Out-FNFf f3< In, FI ag, 0, 87. 3, 2. 2, 76. 3, 3, 0) 

IF  Di spl<«20  THEN  Out-FNFf f3< In, FI ag, 0, 87. 5, 2. 8, 73. 5, 5. 5, 3) 

IF  Di sp i< -30  THEN  Out-FNFf f3< In, FI ag, 0, 87. 5, 3. 4, 71 . 0, 6, 0) 

IF  Di spl<*100  THEN  Out-FNFf f3< In, FI ag, 0, 87. 5, 4. 05, 67, 6. 3, 0) 

IF  Displ<-200  THEN  Out-FNFf f3< In, FI ag, 0, 37. 3, 4. 63, 64, 7, 0) 

IF  Di spl >200  THEN  Out-FNFf f3( In, FI ag, 0, 87. 5, 3. 15, 6 1 . 5, 7. 5, 0) 

GOTO  1999 

IF  Rate-2  THEN  L1030 

IF  Di spl<-100  THEN  Out -FNFf f 3< In, FI ag , 0 , 100 , 4 , 74 , 6, 3 ) 

IF  Displ>100  THEN  Out-FNFf f3< In, FI ag, 0, 180, 3. 3, 63. 3, 7 , 0) 

GOTO  L991 

IF  Di spl<-100  THEN  Out-FNFf f 3C In, FI ag, 0, 87. 3, 4. 4 , 59, 6, 0) 

IF  DI  spl  >100  THEN  Out -FNFf  f  3  <  In ,  FI  ag,  0,  87 . 3, 5.  7 , 30. 3,  7 , 0) 

GOTO  L999 

IF  Rate-2  THEN  L1068 

IF  D i sp l< -580  THEN  Out-FNFf f4< In, FI ag, 0, 100, 3, 100, 5, 90, 8, 0) 

IF  D i spl >300  THEN  Out-FNFf f4< In, FI ag, 0, 100, 4, 100, 6, 90, 9, 0) 

GOTO  L991 

IF  Di spl<-500  THEN  Out -FNFf f 3< In , FI ag, 0 , 60 , 6 , 60 , 8, 0 ) 

IF  D i sp 1 >500  THEN  Out -FNFf f 3 < In, F 1 ag , 0 , 60 , 7 , 60 , 9 , 0) 

GOTO  L999 

IF  Rate-2  THEN  L1080 

IF  DI spl < -5  THEN  Out-FNFf f3< In, FI ag, 0, 100, 2, 33, 3, 0 ) 

IF  CDi spl >5)  AND  <Di spl<-20>  THEN  Out-FNFf f3C In, FI ag, 8, 100, 2. 67, 77, 5 

IF  CD i sp 1 >20)  AND  CBispl<-50)  THEN  Out -FNFf f3< In, FI ag, 0, 100, 3. 34, 72, 

IF  C D i sp 1 >50)  RND  CDispi<*100)  THEN  Out -FNFf f 3 C In , FI ag , 0 , 1 90 , 4 , 63, 6. 

IF  CDi spl >109)  AND  <Displ<-200)  THEN  Out -FNFf f 3 C I n , FI ag, 8 , 1 00 , 4 , 67 , 6 

IF  D  i  sp  1  >200  THEN  0ut»FNF.ff3Cln,  FI  ag,  0,  100, 5.  34, 34, 7. 3, 8) 

GOTO  L99 l 

IF  Di spl<-5  THEN  Out -FNFf f3C In, FI ag, 3, 60, 4. 1 , 25. 6, 3, 8) 

IF  CDi spl >5)  RND  CDispl<»20)  THEN  Out -FNFf f3C In, FI ag, 8, 60, 4. 83, 19. 3, 

IF  CDi spl >20)  AND  <Displ<-50>  THEN  Out-FNFf f3< In, FI ag, 8, 60, 5. 38, 13. 0 

IF  CDi spl >30)  AND  CDispl<-i08>  THEN  Out -FNFf f 3 (In , FI ag, 8 , 60 , 6 . 3 , 6. 4 , 

IF  CDi sp 1 > 1 00 )  AND  <Displ<*200)  THEN  Out-FNFf f C In, F I ag, 8, 60, 7, 0) 

IF  D i sp l >280  THEN  Out-FNFf f3C In, Flag, 0,60. 7, 8, 7. 3, 8) 

GOTO  L999 

IF  Rate-2  THEN  LI  101 

IF  D i spl< - 10  THEN  Out-FNFf f3< In, FI ag, 0, 100, 1 , 96. 7, 3, 8) 
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3735 

,<3> 

3760 

3763 

3770 

3773 

,0) 

5730 

3785 

3790 

3793 

3806 

3803 

3810 

3813 

3820 

3823 

3830 

3833 

3840 

3843 

3830 

3833 

3860 

5863 

3870 

3873 

3880 

3883 

3890 

5893 

3980 

5933 

3910 

3913 

5920 

3923 

3930 

5933 

3940 

3945 

3930 

3933 

3960 

3963 

3970 

3973 

5980 

3983 

3990 

3995 

6000 

6005 

6010 

€013 

6020 

6023 

6030 

5033 

5040 

6845 

6Q30 

6033 

6860 

5363 

6373 


IF  (Di  ipOly)  AND  <Di  spt<  *25) 


THEN  0ut*FHFff3< In, FI ag, 0, 130,2,93.3,6 


IF  Di  sp  1 >23  THEN  Out *FHFf f3( In,  FI  ig,  0, 133,3,90, 7,0) 

GOTO  L99 l 

L1101:  IF  Dispi<*t0  THEN  Out  *FNFf  f  3<  In,  Flag,  3, 70 , 2.  43,  62 , 5, 0) 

IF  (Di spl > 10>  AH D  <  Di spl<*23>  THEN  0ut*FNFff3<In,Flag, 0,35,2. 73, 76,6 


IF  Di spl >25  THEN  Out *FNFf f 3< In, Flag, 3 , 100, 3, 90, 6. 3, 3) 

GOTO  L999 

t 

L991I  IF  R 4t e  —  1  THEN  L999 

IF  R*te»3  THEN  L993 

IF  Ra.te«4  THEN  L994 

L993:  Pcds»x«12/Dspe*d*100 

L993:  IF  (FI Ag*0>  AND  <Out>Pcdsmx>  THEN  Qut-Pcdsmx 

IF  (F1ag-t>  AND  (In>Pcds»x>  THEN  Out-0 
GOTO  L999 

L994:  Pcdsfttx*3/Dspeed*100 

GOTO  L995 

j 

!  IF  CALCULATED  OUTPUT  OF  SEA  STATE  VS  PERCENT  DESIGN  SPEED 

I  IS  LESS  THAN  ZERO  ,S£T  VALUE  EQUAL  TO  ZERO 

! 

L999:  IF  Out<0  THEN  Out*0 

Fpdsss-Out 
RETURN  Fpdsss 
FNEND 

! 

!  FF3 

! 

!  FINDS  V  VALUE  ON  BROKEN  LINE  OF  3  POINTS,  GIVEN  X  VALUE 

!  AND  THE  3  POINTS 

!  (ASSUMING  ENDS  OF  LINE  EXTEND  INFINITELY) 


j 

j 

! 

j 

! 

i 


! 

j 

| 

i 

> 


DEF  FNFf3(X, XI , Y1 , X2, Y2, X3, Y3,X4,Y4,X3,Y3> 

IF  X<-X2  THEN  Ff 3-FNFf < X, X 1 , Y 1 , X2, Y2) 

IF  <X>X2>  AND  ( X< -X3 )  THEN  Ff 5*FNFf (X, X2 , Y2, X3, Y3) 
IF  <X>X3 >  AND  (X< -X4)  THEN  Ff 3*FNFf ( X , X3 , Y3 , X4 , Y4 ) 
IF  X>X4  THEN  Ff 3-FNFf (X, X4, Y4, X3, Y3) 

RETURN  Ff 3 
FNEND 

FHPBIN 


INSTALLED  BASE  HORSEPOWER 

(FOR  A  CRAFT  WITH  DESIGN  SPEED-BASE  SPEED) 


DEF  FNFhpfci n(Code, Di spl ) 

IF  Code-10  THEN  Fhpbi  n«FNFf  <Di  spl, 53, 2738, 300, 20000) 

IF  Code- 1  1  THEN  Fhpbi n-FHFf(Di spl , 20, 1000, 250, 14000) 

IF  Code-20  THEN  Fhpb i n-FNFf ( D i sp 1 , 3 , 1 379 , 30 , 6606 > 

IF  Code-21  THEN  Fhpbi n-FNFf ( Di spl, 23, 2300, 130, 17000) 

IF  Code-30  THEN  Fhpbi n-FNFf (Di spl , 0, 4000, 130, 10000) 

IF  Code-40  then  Fhpbi n-FNFf (Di spl , 33, 3000, 133, 14500) 

IF  Ccde-30  THEN  Fhpbi n-FNFf (Di spl, 64, 3480, 74, 3600) 

IF  Code-70  THEN  Fhpbi n-FNFf ( D i sp 1 , 23 , 752 , 200 , 6343) 

IF  Code-60  THEN  Fhpbi n*FNFf3(Di spl , 200, 2008, 1000, 6300, 4000, 12300) 
IF  Code-80  THEN  Fhpbi n«10~< . 639*LGT< Di spl )+2. 2648) 

RETURN  Fhpbin 


FSFCEN 


SPECIFIC  FUEL  CONSUMPTION  (LBS  PER  HORSEPOWER  HOUR  PER  ENGINE) 

DEF  FNFsf cenCEng, Hpi nst > 
hpi ns2»Hpi ns t '2 
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6073 
6030 
6083 
6090 
6093  ! 

6100  » 
6103  ! 

6110  I 
6113  ! 

6120  ! 
6125  ! 

6130  ! 

6133  ! 

6140  I 
6143 
6130 
6133 
6160 
6165 
6170 

6173  f 

6180  ! 

6183  ! 

6190  ( 

6193  I 

6200  < 

6205  I 

6210 
6213 
6220 
6223 
6230 

6233  ! 

6240  ! 

6243  ! 

6250  ! 

6233  ! 

6260 

6263 

6270 

c  tu+2 

6273 

6280 

6285 

6290 

6293  ! 

6300  ! 

6305  ! 

6310  i 

6313  i 

6323  > 

6323  ! 

6330  ! 

6333  ! 

6340  ! 

6343 
6330 
6333 
6360 
6363 
6370 

6373  i 

6330  ! 

6283  ! 

6390  ! 

6393  ! 


IF  Eng*2  THEN  Fsfc*n».3 3 

IF  Eng* 1  THEN  Fsfc*n»FNFf 3<Hpi n*2, 400 , . 7, 4000, . 43 , 1 6000, . 4) 

RETURN  Fsfcen 
FNEND 

FFF3 

READ  CURVE  Y  VS  X  OR  X  VS  Y  DEPENDING  UPON  FLAG 
CURVE  IS  ft  BROKEN  LINE  OF  3  POINTS 

FLAG  *  0  MEANS  Y  VS  X 

FLAG  *  1  MEANS  X  VS  Y  (NEGATIVE  SLOPE) 

FLAG  *  2  MEANS  X  VS  Y  (POSITIVE  SLOPE) 

DEF  FNFff3(Xory,F1 *g,Xl, Y1,X2, Y2,X3, Y3) 

IF  F1*g*0  THEN  Ff f 3*FNFf 3 < Xory , XI , Y1 , X2, Y2, X3, Y3) 

IF  F1*g-t  THEN  Ff f3-FNFf 3(Xory , Y3, X3, Y2, X2, Y1 , XI ) 

IF  Fl*g-2  THEN  Ff f 3-FNFf 3 ( Xory , Y1 , XI , Y2, X2, Y3, X3) 

RETURN  Ff f 3 
FNEND 

FF  3 

FINDS  Y  VALUE  ON  BROKEN  LINE  OF  3  POINTS,  GIVEN  X  VALUE 
AND  THE  3  POINTS 

(ASSUMING  ENDS  OF  LINE  EXTEND  INFINITELY) 

DEF  FNFf3<X,Xl,Yl,X2, Y2.X3, Y3) 

IF  X< *X2  THEN  Ff 3*FNFf ( X , XI , Y l , X2, Y2) 

IF  X>X2  THEN  Ff3»FNFf (X, X2, Y2, X3, Y3> 

RETURN  Ff 3 
FNEND 

FSFCCF 

SPECIFIC  FUEL  CONSUMPTION  CORRECTION  FACTOR 
DEF  FNFsfccf (Eng, Hpfctu) 

IF  (Eng-i)  AND  (Hpfctu>.3>  THEN  Fsf cc f 4*Hpf c t u+1 . 4 

IF  (Eng-l)  AND  (Hpfctu>.23)  AND  (HpfctuO.3)  THEN  Fsf c c f «- 1 . 6*Hpf 

IF  <Eng*l>  AND  (Hpf ctu< *. 23)  THEN  Fsf ccf »-3. 2*Hpf ctu+2. 4 
IF  Eng-2  THEN  Fsfccf-1 
RETURN  Fsfccf 
FNEND 

) 

FFF 

READ  CURVE  Y  VS  X,  OR  X  VS  Y  DEPENDING  UPON  FLAG 
CURVE  IS  A  STRAIGHT  LILNE 

FLAG  *  0  MEANS  Y  VS  X 

FLAG  »  1  MEANS  X  VS  Y  (NEGATIVE  SLOPE) 

FLAG  *  2  MEANS  X  VS  Y  (POSITIVE  SLOPE) 

DEF  FNFff <Xory,F1 *g,Xl, Y1,X2, Y2) 

IF  Fl*g*0  THEN  Ff f*FNFf ( Xory , X 1 , Y 1 , X2 , Y2) 

IF  Fl*g-1  THEN  Ff f-FNFf (Xory, Y2, X2, Yt , XI ) 

IF  F1*g«2  THEN  Ff f-FNFf ( Xory , Y 1 , X 1 , Y2, X2 ) 

RETURN  Fff 
FNEND 

FF  8 

FINDS  Y  VALUE  ON  3ROKEN  LINE  OF  3  POINTS,  GIVEN  X  VALUES  AND 
THE  EIGHT  POINTS. 
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6400 

6403 

6410 

6413 

6420 

6423 

6430 

6433 

6440 

6443 

6450 

6453  ! 

6460  ! 

6463  ! 

6470  1 

6473  ! 

6480  ! 

6483  ! 

6490  i 

6495  ! 

6500  I 

6303 

6310 

6513 

6320 

6323 

6330 

6333  ! 

6340  ! 

6345  ! 

6330  ! 

6333  ! 

6560  ! 

6363  ! 

6370 
6373 
6583 
6383 


DEF  FNFf8<X,Xl, Yl,X2, Y2,X3, Y3tX4, Y4, X3, Y3,X6, Y6, X7, Y7, X3, Y3) 
IF  X<  X2  THEN  Ff8*»FNFf <X,X1,Y1,X2,Y2) 

IF  <  X>X2 >  AND  (X< -X3 >  THEN  Ff 8«FNFf < X , X2 , Y2 , X3 , Y3 ) 

IF  (X>X3>  AND  <  X< -X4 )  THEN  Ff 3*FNFf (X, X3 , Y3, X4, Y4> 

IF  (X>X4>  AND  <X< -X3 >  THEN  Ff 3»FNFf <X, X4, Y4, X3, Y5> 

IF  (X>X3  >  AND  <X< *X6>  THEN  Ff 3*FNFf < X , X3 , Y3 , X6 , Y6 ) 

IF  <X>X6>  AND  (X<*X7)  THEN  Ff8-FNFf(X,X6,Y6,X7,Y7) 

IF  X>X7  THEN  Ff 3*FNFf (X,X7,Y7,X8,Y8) 

RETURN  Ff 8 
FNEND 

FFF4 

READ  CURVE  Y  VS  X  OR  X  VS  Y  DEPENDING  UPON  FLAG 
CURVE  IS  A  BROKEN  LINE  OF  4  POINTS 

FLAG  ■  0  WEANS  Y  VS  X 

FLAG  *  1  WEANS  X  VS  Y  (NEGATIVE  SLOPE) 

FLAG  »  2  MEANS  X  VS  Y  (POSITIVE  SLOPE) 

DEF-  FNFff4(Xory,F1ag,Xl, Y1,X2, Y2,X3, Y3,X4, Y4) 

IF  Flag-0  THEN  Ff f 4«FNFf 4(Xory , XI , Y1 r X2, Y2, X3, Y3, X4, Y4) 

IF  F1ag«i  THEN  Ff f 4-FNFf 4<Xory, Y4,X4,Y3,X3,Y2,X2,Y1,X1) 

IF  Flag-2  THEN  Fff 4-FNFf 4<Xory, Y1 , X 1 , Y2, X2 , Y3 , X3 , Y4 , X4) 

RETURN  Ff f 4 

FNEND 

FPDPTW 

DEPTH  CUMULATIVE  PROBABILITY  DISTRIBUTION 

FPDPTHC D ) -PROBABILITY  THAT  DEPTH  <  D 

DEF  FNFpdpt h(Dphdtb, D*pth) 

IF  Dphdtto*!  THEN  Fpdpth-0 

RETURN  Fpdth 

FNEND 
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475 

480 

433 

490* 

493 

300 

303 

310 

313 

320 

325 

330 

333 

340 

343 

530 

333 

560 

363 

370 

373 

580 

383 

390 

393 

600 

603 

610 

613 

620 

623 

630 

633 

640 

643 

630 

633 

660 

663 

670 

673 

680 

683 

690 

693 

700 

703 

710 

713 

720 

723 

730 

733 

740 

743 

730 

733 

760 

763 

770 

773 

780 

733 

790 

793 

300 


Sprpos:  !  GLOBAL  SUBROUTINE  SPRP03 
Nmst  sk*  i  9 

DATA  .  9,  .  7,  .  3,  .  1 ,  .  2,  .  3, 0.  ,  .  1 ,  .  2 
MAT  READ  Vi  ids l 
Vi  sds2$<  1>«*VERY  GOOD** 

Vi  sds2$<2>-"GQGD“ 

Visds2S<3>-"G0QD  TO  FAIR" 

MAT  Qvcnmx-ZER 
Totprb*0 

DATA  7,3, 4,3, 6,5,3, 3, 4, 4, 2, 3,2 
DATA  2, 4, 3, 4, 6, 0,0, 0,0 
MAT  READ  Nnod* 

DATA  19,13,8,2,19,14,9,7,0,14,11,3 
DATA  0,15,10,1,0,18,12,3,0,16,0,7 
DATA  0,17,0,3,0,18,0,7,0,18,0,3 
DATA  0,0, 0,3,0, 0,9, 5, 0,0, 0,3, 0,0, 0,2 
DATA  0,0,0f 4, 0,0, 0,4, 0,0, 0,7,0, 0,0, 3 
DATA  0,0, 0,3, 0,0, 0,7, 0,8, 0,7, 0,0, 0,3 
DATA  0,0, 0,6, 0,0, 0,7, 0,0, 0,0, 0,0, 0,0 
MAT  READ  M*st*r 

!  ARRAY  VARIABLE  MASTER  AND  NNODE  ARE  POSSIBLE  INCORRECT 
MAT  B«t*-ZER 
T  4tskno*<  1 ,  1  >*"DASH" 

T*skno*<2, 1  INTERDICT" 

FOR  1*3  TO  23  STEP  1 
TisknoK  1 1 1  )*" 

NEXT  I 

T*sknof  <  1 , 2) -"ESCORT" 

T*skno$<2, 2>«" IDENTIFY  CRAFT" 

T*skno#<3, 2)*" IDENTIFY  FLEET" 

T*skno$<4, 2)*" PATROL" 

T*skno$<3, 2>-" SEARCH  FOR  FLEET" 

T*sknoS<6,2)-"SEARCH  FOR  SHIP:  FOUND" 

T*skno*< 7, 2) -"TRANSPORT  EQUIPMENT" 
T*sknoS<3,2>-“TRANSP0RT  PEOPLE" 
T*sknoS<9,2>-"TRANSIT" 

FOR  1-10  TO  23  STEP  1 
T*skno$< I,2>»" 

NEXT  I 

T*skno#< 1 , 3) -"SEARCH  DSTR  UNIT:  FOUND" 

T*skno$<2, 3>«"SL0W  ESCORT" 

T*skno$<3, 3) -"SEARCH  FOR  PEOPL:  FOUND" 
T*skno*<4,3>«"SLQW  PATROL" 

T*sknoS<3,3>»"TQUI" 

FOR  I a6  TO  23  STEP  1 
T  askno*  C 1 , 3) " 

NEXT  I 

T*skno*<  1, 4) -"BOARD" 

T*sknoS<2,4)«"FIGHT  FIRE  FROM  CG  VESSEL " 
T*skno*<3,4)»"FGHT  FIRE  ON  OTHER  VESSEL" 

Taskno*<4,4 ) -“GENERAL  ASSISTANCE" 

T*sknoS<3,4)-M INSPECTION" 

T%SKno*<6,4)-"L0AD  EQUIPMENT" 

Task noS< 7, 4 >« "LOITER" 

T^skno5<8, 4>-"LAUNCH  SMALL  BOAT" 

T^skno5<9, 4) -"MON ITER  ACTIVITIES" 

T *sxro$< 13, 4)-" MO NITER  OIL  SPILLS" 

T*sKnos<ll,4>-"0N  BOARD  ASSISTANCE" 

T%skno*< 12, 4) -"ON  SCENE  COMMANDER" 

T*sknoS< 13, 4 > -"RETRIEVE  BOARDING  PARTY" 

T 45kno#<  14,4)  *» "RETR I  EVE  OBJECTS" 

?*skno$< 13, 4>»*RESCUE  PEOPLE" 
wisknc*< 16, 4>»"RETRIEVE  SMALL  BOAT" 

T*skno*< 17, 4)3"STRKE  OUT  SPEC  INT  VESSEL" 

T4*knoJ< 19, A) -“SEIZE* 

T\sknoS< 19, 4)»*TAKE  LATER  SAMPLE" 
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303 

310 

313 

320 

823 

830 

333 

340 

345 

330 

333 

386 

333 

870 

873 

888 

383 

890 

895 

900 

905 

910 

913 

920 

923 

930 

935 

940 

945 

930 

953 

930 

935 

970 

973 

980 

983 

990 

995 

1000 

1005 

1010 

1013 

1020 

1023 

1030 

1033 

1040 

1043 

1039 

1053 

1030 

1035 

1070 

1073 

1880 

1083 

1090 

1093 

1100 

1103 

me 

1113 

1120 

1123 

1130 


Ta*kno*<20, 4>«"UNL0RD  EQUIPMENT'1 
T-»skno*<21,4>»"W0RK  EQUIP  FROM  3M  BOAT" 

T**kno*<22,4>»"UQRK  EQUIPMENT  8  DRIFT" 

T*skno$<23, 4>»“U0RK  EQUIP  t ?  FIXED  POS" 

T*sknoS<24, 4)»"  " 

Task  no* <23, 4>»"  " 

GrpnaS<l>»"AS3I$T" 

Grpna*<2>-"ESC0RT" 

Grpna$<3>»"FIGHT  FIRE’* 

GrpnaS<4)-"  IDENTIFY" 

Grpnm*<5)«"INSPECT" 

Grpna$<6>-" MO NITER" 

GrpnaS <7)**PATR0L" 

•  GrpnaSCS^RESCUE” 

Grpna$< 9) - "RESCUE  RETURN “ 

Grpna*<10)-"SAR  SEARCH" 

GrpnaS < 1 1 ) -"SEARCH  FLEET" 

Grpna*<12)«"SEIZE" 

Grpna#< 13> -"SENSOR  SEARCH" 

Grprta*<  14)  -"STANDBY" 

Grpna*< 15>* "STEAM" 

Grpna*<184-"TRRNSFER  EQUIP" 

Grpna$< 17)-"TRANSP0RT  EQUIP" 

Crpna*<10>-“WORK  EQUIPMENT" 

Grpna#<  19)-" 

Grpna$<23>-* 

!  GET  PATHS 

PRINT  PAGE 

INPUT  "TYPE  NAME  OF  SCENARIO  FILE  DESIRED  ",  Sc tnS 
Sc*nS-Sctn$«.":T14" 

ASSIGN  42  TO  Scans 
PRINTER  IS  18 
PRINT  PAGE 

INPUT  "WOULD  YOU  LIKE  A  HARD  COPY  OF  SCENARIO  DATA  <Y/N>? 
IF  Ans*-"Y"  THEN  PRINTER  IS  0 
!  READ  CG  PROGRAM  AND  SCENARIO  NUMBER 
READ  #2;ProgrmS 
READ  #2;$cenno 
PRINT  PAGE 

PRINT  USING  L131 ; "**  SCENARIO  DATA  **" 

L131S  IMAGE  K 
PRINT 

PRINT  USING  L132;"CG  PROGRAM*" , PrograS 
L132!  IMAGE  IX,K,K 

PRINT  USING  L133; "SCENARIO  NO.  »",Sctnno 
L133:  IMAGE  1X,K,2D 

!  READ  MAXIMUM  TIME 

READ  42;Mxtiaa 

PRINT  USING  L127; "MRXIMUM  TI ME-" , Mxt i a* 

L127:  IMAGE  IX,K,4D.D 

!  READ  FRACTION  OF  RANGE  THAT  CAN  BE  USED 
READ  #2;  Rangf r 

PRINT  USING  L137; "RANGE  FRACTION-" , Rangf r 
L137:  IMAGE  IX,K,D.2D 

!  READ  NUMBER  OF  DAYS  IN  OPERATION 
READ  42;Ndays 

PRINT  USING  L50S;"  NO.  DAYS  OF  OPERAT I QN-" , Ndays 
L306:  IMAGE  1X,K,4D 

!  READ  THE  NUMBER  OF  IMPORTANT  TASKS  AND  THE  IMPORTANT  TASKS 
!  R-RATE  OF  TASK, T -TASK  NUMBER;  USER  CAN  INPUT  IMPORTANT 
!  TASKS  < 10^LINE)  AFTER  HE  INPUTS  THE  NUMBER  OF  IMPORTANT  TASKS 
READ  42; Na i at  k 
FOR  1*1  TO  Nr* i  at k 
READ  42; Imrat*< I > , Imtskn< I ) 

NEXT  I 

FOR  I»1  TO  Nmiatk 
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,  AnsS 


1133 

PRINT  Imrat  *< I > , Imt skn< I ) 

1140 

L320: 

Mt  ask  <I>*Imrat*<I>*i004lmtskn<I> 

1145 

NEXT  I 

1130 

PRINT  USING  L503;“  NUMBER  OF  IMPORTANT  TASKS* " , Nm i mt k 

1133 

L388; 

IMAGE  K , 2D 

U60 

FOR  1*1  TO  Nmimtk 

1163 

PRINT  USING  L302; Mt ask  < I ) 

1170 

L802: 

IMAGE  #, IX, 3D 

1173 

NEXT  I 

1130 

PRINT 

1183 

FOR  1*1  TO  Nmimtk 

1130 

IF  Imrat *<  0*0  THEN  L310 

1133 

Imptsk<Imtskn<l>, Imr  at*<  I  >  )  -1 

1200 

L309: 

NEXT  I 

1205 

L310: 

!  CONTINUE 

1210 

!  READ  HUMBER  OF  HOSES 

1213 

READ  #2; Nnodou 

1220 

PRINT  USING  L126; "  NODES- ", Nnodou 

1223 

L126: 

IMAGE  K ,  2D 

1230 

!  READ  COHHECTIOH  MATRIX 

1233 

) 

THE  NUMBER  OF  PROBABILITIES  PER  LINE  *  THE  NUMBER  OF  NODES 

1240 

j 

IF  >15,  USE  TWO  LINES  WITH  13  PROBABILITIES  ON  THE  FIRST  L 

1243 

PRINT  USING  L120;  "  CONNECTION  MATRIX*" 

1250 

L120: 

IMAGE  K 

1233 

FOR  1*1  TO  Nnodou 

1260 

FOR  J*1  TO  Nnodou 

1263 

READ  #2; OucnmxC I , J> 

1270 

PRINT  USING  LI  18; Oucnmx< I , J) 

1273 

Li  1 8: 

IMAGE  # , DDD . D , 2X 

1280 

Lies: 

NEXT  J 

1283 

PRINT 

1290 

NEXT  I 

1293 

!  RERD  GROUP  PLACEMENT  MATRIX 

1330 

t 

THE  NUMBER  OF  GROUPS  PER  LINE  -  THE  NUMBER  OF  NODES. 

1303 

j 

IF  >13,  USE  TWO  LINES  WITH  15  GROUPS  ON  THE  FIRST  LINE. 

1310 

PRINT  USING  L121 ; "  GROUP  PLACEMENT  MATRIX** 

1313 

L121: 

IMAGE  K 

1320 

FOR  1*1  TO  Nnodou 

1323 

FOR  J*t  TO  Nnodou 

1330 

READ  #2;GppImx<I, J> 

1333 

PRINT  USING  LI  17; Gppl mx< I , J> 

1343 

NEXT  J 

1343 

PRINT 

1330 

NEXT  I 

1335 

Li  17: 

IMAGE  #,DDDD,2X 

1360 

!  READ  GROUP  DATA 

1363 

READ  #2 ; Zr i ght , Idown 

1370 

! 

NOW  READ  GROUP  DATA  MATRIX 

1373 

FOR  I*t  TO  Idcwn 

1330 

FOR  J*t  TO  Iright 

1333 

READ  #2; Set a< J, I> 

1390 

NEXT  J 

1393 

NEXT  I 

1400 

!  CONTINUE  ON  AND  READ  THE  REST  OF  THE  DATA 

1405 

FOR  1*1  TO  I down 

1410 

FOR  J*l  TO  Iright-2 

1413 

Gpdat2<I, J>*B*ta<J+2, I) 

1420 

NEXT  J 

1423 

NEXT  I 

1430 

FOR  I-l  TO  23 

1433 

FOR  ;*1  TO  2 

1440 

Gpdat 1(1, J>*B*ta<J, I> 

1443 

NEXT  J 

1430 

NEXT  I 

1433 

PRINT  USING  L122;*  &GROUP  DATA*" 

1460 

.122: 

IMAGE  K 
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1  465 
1470 
1473 
1430 
1485 
1490 
1495 
1500 
1505 
1310 
1515 
1520 
1325 
1333 
1333 
1340 
1345 
1330 
1333 

1369 
1363 

1370 
1373 
1380 
1383 
1399 
1595 
1600 
1605 
1610 
1615 
1623 
1623 
1630 
1633 
1648 
1643 
)? 

1650 

1635 

1660 

1665 

1670 

1673 

1680 

1685 

1690 

1693 

1700 

1705 

1710 

1713 

1729 
1723 
1733 
1733 
1748 
1743 

1730 
1733 
1760 
1763 
1770 
1773 
1790 
1733 


FOR  I*t  TO  tdown 

PRINT  USING  L109; Gpdat 1(1, 1 )  , Gpdat 1(1,2) 

L109:  IMAGE  4, 1X,DDD.DD, 1X,DDD.DD 

FOR  J*1  TO  Iright-2 
PRINT  USING  LI 10; Gpdat 2 ( I ,  J> 

L110S  IMAGE  4, DDD . DD 
NEXT  J 
PRINT 
NEXT  I 

PRINT  USING  L103;  **  &END* 

L105:  IMAGE  K 

!  READ  NUMBER  OF  PRINTOUTS 
READ  #2; Npt out 

PRINT  USING  L 1 4 1 ; •  NUMBER  OF  PRINTOUTS-  ",Nptout 
U1418  IMAGE  K, DD 
!  READ  OUTPUT  FORMAT 
!  FLAG-l  FOR  FULL  OUTPUT 

!  FLAG-2  FOR  PARTIAL  OUTPUTlNO  SORTIES  PRINTED 
READ  42; Flag 

PRINT  USING  L143;"  OUTPUT  FORMAT-* ,  FI  ag 
L143 :  IMAGE  K, D 

PRINTER  IS  16 
PRINT 

PRINT  "NOTE:  THERE  MAY  BE  MANY  PAGES  OF  OUTPUT  IF  THE  HARDCOPY* 
PRINT  *  OPTION  IS  SELECTED  FOR  THE  INDIVIDUAL  SORTIES* 

!  CONVERT  FUEL(TONS)  TO  FUEL < GALLONS ) 

Mxf ucl -Fut 1 cp 
Mxgal s-Mxfut 1 *333*Rangf r 
!  CALCULATE  TPO$<TR$K  PROBABILITY  OF  SUCCESS) 

FOR  I-l  TO  Nmsi sk 

Tpos«x(I)*Cc< I)*Df <I)*Mn<I)*Ls(I)*Tw(I> 

NEXT  I 
!  INITIALIZE 

Npath-0 

!  ZERO  OUT  TIME,  FUEL  AND  TASK  COUNTERS 
PRINTER  IS  16 

INPUT  "WOULD  YOU  LIKE  A  HARD  COPY  OF  INDIVIDUAL  SORTIE  OUTPUTS  <Y/N 

AnsS 

IF  Ans*-*Y"  THEN  PRINTER  IS  0 

Tot i m-0 

Tot fuc-0 

FOR  I-t  TO  25 

FOR  J-l  TO  4 

Totcnt  < I , J)-0 

NEXT  J 

NEXT  I 

Pt  ht i »-0 

Pthf u**0 

Pthprb-i 

Ptr-0 

Tot prb»0 

FOR  I»l  TO  103 

Psh 1 st  < I )«0 

Ti  »I &t ( I )-0 

Fu# 1  at  < I )-0 

Prb 1 st  < I )-0 

NEXT  I 

FOR  I-I  TO  3 
FOP  ;«1  TO  3 
Vi sdi s< I , J)-Vi sd*l < I , J> 

NEXT  J 
NEXT  I 

!  GET  MINIMUM  FUEL  AND  TIME  PATHS 
N»Nnodou 

CALL  FwinpMN,  Qucnmx<*>  ,  Gppl  mx<*>  ,  Mint  tmC*),!1infut(4)) 

!  FIND  PATHS  (SORTIES)  THROUGH  THE  FLOWCHART 
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1 790  '  START  AT  OVERALL  NODE  1 
1795  Provnd*! 

180O  Lsougo-0 

1885  Entry-l 

1810  Lkti»e-0 

1815  Lkfuel-0 

1820  LKprob*t 

1825  COSUB  Fpush 

1330  !  GET  NEXT  OVERALL  NODE 

1835  L10:  IF  Mint im<Pround>+Ptht im>Mxt1me  THEN  L98 

1840  IF  Ml  nfue<Provnd)+Pthf ue>MxgAl  s  THEN  L90 

Begl n-Lsougo+t 
IF  Begl n>Nnodou  THEN  L90 
FOR  JaBeg1n  TO  Nnodov 
Ouprob-Qucn»x<Proundf  J) 

IF  Ouprob>0  THEN  L24 
NEXT  J 
Ouprob- 1 
GOTO  L90 

!  FOUND  AN  OVERALL  NODE  TO  GO  TO 
L245 
I  GET 
L20: 


1845 
1350 
1855 
1380 
1885 
1870 
1875 
1880 
1885 
1890 
1895 
1900 
1905 
1910 
1915 
1920 
1925 
1930 
1935 
1940 
1945 
1950 
1955 
1980 
1965 
1970 
1975 
1930 
1985 
1990 
1995 
2000 
2005 
2010 
2015  ! 
2020 
)  THEN 
2025 
2830 
2035  i 
2040 
2045 
2050 
2055 
2060 
2365 
2078 
2075 
2380 
2085 
2990 
2095 
2180 
2105 
2110 


GET 


L60: 


L390! 

L39i: 


L62 


Nxovnd-J 

THIS  LINK'S  GROUP  CIF  ANY)  AND  START  AT  GROUPNODE  1 
Lnksgp-GppJ  «x<Pround, Nxovnd) 

IF  Lnksgp-0  THEN  L40 

Prgpnd- 1 88*Lnk sgp+ 1 

Lsgpgo-0 

Ent ry-Prgpnd 

Lkt  1  a*«0 

Lkfu* 1*0 

Lkprob-Guprob 

GOSUB  Fpush 

Pthprb*Pthprb*Ouprob 

Ouprob-l 

NEXT  GROUP  NODE  IN  PRESENT  GROUP 
Begl n*FNFxnode<Lsgpgo)+l 
Group-FNFgroup<Prgpnd) 

Inst*FNF 1 nst  CPrgpnd) 

Node*FNFxnode<P»*gpnd) 

IF  Group>*90  THEN  L390 
Numnds-Nnode<Group) 

GOTO  L891 
Nunmds-9 

IF  Begin>Numnds  THEN  L30 
FOR  J-Begln  TO  Nuomds 

CALL  FI kd At < Group, Inst , Node , J, Lk prob , Lk t ime,Lkfuel > 

CHECK  FOR  TIME  AND  FUEL 

IF  <Lkprob>0>  AND  CPtht 1 m+Lkt i rae<aMxt i me)  AND  CPt hf ue+Lk f ue 1 < -Mxgal s 


L62: 


NEXT  J 
GOTO  L80 
FOUND  A  GROUP 


NODE  TO  GO  TO  IN  PRESENT  GROUP 


Node- J 

Nxgpr>j*FNFpACk  <Node,  Group,  Inst  ) 

Ent ry»Nxgpnd 
GOSUB  Fpush 
Ptht  i  m«Pt  ht  i  m+Lkt  i  me 
Pt hf ue-Pt hfue+Lk  fuel 
Pthprb-Pt hprb*Lkprob 
!  TEST  IF  END  OF  PATH  IN  GROUP 

IF  < Node-2)  OR  <Node-9)  THEN  L40 

Prgpnd-Nxgpnd 

Lsgpgo-3 

GOTO  LS0 

!  NO  GROUP  FOR  THIS  OVERALL  LINK  -OR-  FINISHED  THIS  LINK 
L40:  IF  Nxour.u-2  THEN  L42 

Lsougo*0 
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2113 

2120 

2123 

2130 

2135 

2140 

2143 

2130 

2133 

2160 

2163 

2170 

2173 

2180 

2185 

2190 

2193 

2200 

2203 

2213 

2213 

2220 

2223 

2230 

2233 

2240 

2245 

2230 

2233 

2260 

2263 

2270 

2273 

2280 

2283 

2290 

2293 

2300 

2303 

23i0 

2313 

2320 

2323 

2330 

2335 

2340 

2343 

2330 

2333 

2363 

2365 

2370 

2373 

2380 

2383 

2390 

2393 

2400 

2403 

2418 

2413 

2420 

2423 

2430 

2433 

2440 


Proynd*Hxowncl 
Ent  ry*Nxovnd 
Lkt i m*-0 
Lkfu#l*0 
Lk  prob*Quprob 
GOSUB  Fpush 
Pthprb*Pt hprb*Ouprob 
GOTO  LI 0 

!  FOUND  A  COMPLETE  PATH 
L42I  Entry»2 
Lkt i m#*0 
Lkfucl-0 
Lkprob*Ouprob 
GOSUB  Fpush 
Pt hprb*Pt hprb*Quprob 
GOTO  L200 
L201:  GOSUB  Fpop 

Pt hprb*Pt hprb/Popprb 
L44:  IF  Pshlst<Ptr)>«10009  THEN  L82 

!  WENT  BACK  TO  OVERALL  NODE 
Lsougo*Nxound 
GOTO  LI 0 

!  WENT  BACK  TO  GROUP  NODE. 

L82:  Provnd*FNFhound<Du»»y > 

GOTO  L80 

!  TOP  IS  A  GROUP  NODE,  WANT  TO  POP  IT 
L80:  GOSUB  Fpop 

Ptht i m*Pt ht i  ni-Popt  i  ra 
Pthf ue*Pthf u*-Popf u* 

Pt  hprb*Pthprb^Popprb 
IF  FNFxnode < Popped >* i  THEN  L44 
Lsgpgo*Popp*d  . 

Pr gpnd«Pshl st  CPtr) 

GOTO  L60 

(  AT  OVERALL  NODE  WITH  NO  OVERALL  NODES  TO  GO  TO  -OR- 
!  WITH  NOT  ENOUGH  TIME  OR  FUEL  LEFT:  REMOVE  TOP  OVERALL  NODE 
L905  GOSUB  Fpop 

Pthprb*Pt hprb^Popprb 
IF  Popped-!  THEN  L9999 
Lsovgo*Popp*d 
Nxovnd*Popp«d 

IF  Pshlst<Ptr)>-l0800  THEN  L82 
Pround«Psh \ st  <Ptr ) 

GOTO  LI 0 

!  FOUND  A  PATH:  FIND  PATH  DATA  AND  PRINT  IT  OUT 
L200:  Np*th»Np*t h+1 

Iphf u#*Pthf ut 
Un*djp*t 
FOR  1*1  TO  Pt r 
UnAdJp*Unadjp*Prb 1 st  < I ) 

NEXT  I 

Un*jpb<Np*t h)*Un*d jp 
Tot  prb*Totprb+Ur>*djp 
!  STORE  SORTIE  TIME  AND  FUEL  IN  ARRAYS 
P»t ht »<Np*th>*Pt ht i m 
Ipthf  u<Hp*th;>*Ipht'ue 
FOR  Nprt*d»i  TO  Nptout 
!  WRITE  HEADING 
PRINT 

DI3P  "SORTIE  NUMBER"  ,  Npaith,  *  PRINTING" 

L221I  PRINT  PAGE 
PRINT 
PRINT 
PRINT 

IF  Fl*g-l  THEN  PRINT  USING  L209 ; Progr , '*  SCENARIO  " , Sc 
L239:  "MAGE  30X,K,K,2D 


CRT  I E  NUMBER  '\Npath 


2443 

2430  L213: 
2433 
2460 
2463 

TED  CRAFT" 
2470  L21 1 : 
2473 
2480 

“.CrfnaS 


IF  Flag-1  THEN  PRINT  USING  L210;"3 
IMAGE  29X,K,4D 
PRINT 
PRINT 

IF  Flag-t  THEN  PRINT  USING  L21i;“  OPERATIONAL  REQUIREMENTS: “ , "SELEC 

IMAGE  13X,K,13X,K 
PRINT 

IF  Flag-1  THEN  PRINT  USING  L212;"  MAXIMUM  DURATION  ".Mxtim*,"  HOURS 


2483  L212:  IMAGE  13X, K , 4D. D , K, 6Xt K 
2490  IF  FI ag* 1  THEN  PRINT  USING  L212; 1 

MENT", Idlsp, "  TONS" 

2493  L2135  IMAGE  1 3X , K, D . 2D, 16X, K , 3D , K 
2300  IF  Flag-1  THEN  PRINT  USING  L214;1 

D“ , Idspd, "  KNOTS" 

2303  L214:  IMAGE  13X, K, 12A, 12X, K, IX, 2D, K 
2310  IF  Flag-1  THEN  PRINT  USING  L213;‘ 

RACTI ON" , Fuf rc 

2313  L215:  IMAGE  1 3X , K, D. D, 1 4X, K, D. 2D 
IF  Flag-1  THEN  PRINT 
IF  Flag-1  THEN  PRINT 

IF  Flag-1  THEN  PRINT  USING  L202; "  GROUP" , "TASK" , " LOCATION" , " TA$K","T 


RANGE  FRACTION  “  ,  Rangt'r  ,  "  D 13PLACE 


VISIBILITY  ",Visds2*, "DESIGN  SPEE 


AVERAGE  SEA  STATE  M , Ssaug , "FUEL  F 


L203 : 


L217: 


2ER0 


2320 

2323 

2330 

ASK", "TASK" 
2335  L202: 
2340 
POS" 

2343 
2530 
2335 
2560 
2365 
2370 
2373 
2380 
2583 
2390 
2393 
2600  ! 

2603  ! 

2610 
2613 
2628 
2625 
2638 
2633 
2640 
2643 
2630 
2633 
2660 
2663 
2670 
2673 
2680 
2685 
2690 
2693 
2700 
2703 
2710 
2713 
2720  ! 

2723  ! 

2738 
2733  ! 


IMAGE  10XtK,3XfK, 18X,K,2X,K, 4X,K,4X,K 
IF  Flag-1  THEN  PRINT  USING  L203; "NAME" , "NAME" 


"CODE" , "TIME" , "FUEL" , 1 


IMAGE  UX,K, 6X,K,20X,K,4X,K, 4X,K,3X,K 
IF  Flag-1  THEN  PRINT  USING  L217; " <HRS> " , ■ 
IMAGE  33X,K,2X,K 
IF  Flag-1  THEN  PRINT 
THEN  PRINT 


<  GALS) " 


IF  Flag-1 
Posprd-1 
Ccrni n-9999 
Df mi n*9999 
Mnmin-9999 
Lsai n«9999 
Twai  r>*9999 

OUT  TASK  COUNTER  AFTER  A  CRAFT  HAS 
COMPLETED  A  SORTIE 
FOR  I«l  TO  25 
FOR  J-l  TO  4 
Count  < I , J>*0 
NEXT  J 
NEXT  I 
Ntask-0 

FOR  I»l  TO  Ptr 
Locat  n*Pshl st  <  I  > 

I  nst-FNFl ns t  <Loc  atn> 

Group-FNFgrouo<Locat n) 

IF  Group-0  THEN  L204 
Nod*«FNFxnod*<Loc itn) 

IF  Nod*-t  THEN  L205 

Nod*i*Nod#2 

Nod*2«Nod« 

CALL  Ft  ask <Gr oup, Nodal , Nod*2, Task no  1 , Rat*6> 
Rat*«Rat *6 
T ask no- Task no 1 
Task n l -Task no 

IF  Group>«90  THEN  Tasknl*Tasknt+19 
Rat* 1-Rat • 

IF  Group>-90  THEN  Ratel-1 

NOTE:  COUNTER  FOR  THE  3  SEARCH  FAILURES  ARE  STORED 
IN  RATE  1  AND  TASKNQS  20,22  AND  23 
IF  T ask no«0  THEN  L204 
TASK  IS  PERFORMED  INCREMENT  TASK  COUNTER 
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2740  Count  <  Task n l , Rat  * l > -Count  <  Task n 1 , R  at  * l >  +  1 

2743  L38:  Mastsk-Mast  erCTaskno,  Rat*> 

2730  !  FIND  CC  FOR  MASTER  TASK  17 

2733  !  FIND  MINIMUM  VALUE  OF  EACH  PARAMETER:  CC , DF , MN , L3 , TW 
2760  Cc0-Cc  < Mast  sk ) 

2763  IF  Mast sk-17  THEN  COSUB  Fccl7 

2770  IF  Cc0<»Ccmin  THEN  Ccmin»Cc0 

2773  IF  Df <Mastsk)ODfmin  THEN  Dfmi n-Df <Mast sk ) 

2730  IF  MnCMast sk ><*Mnmi n  THEN  Mnmi n«Mn<Mast sk ) 

2783  IF  LsCMast sk ><*Lsmi n  THEN  Lsm i n*Ls < Mast sk ) 

2790  IF  TwCMastsk  X-Tutni  n  THEN  Turn i n-Tw < Mast sk ) 

2793  Tpos*Tpos»x<Mast sk > 

2800  IF  Mast  sk  * 1 7  THEN  Tpos-CcO*Df < 17>*Mn< 17>*Ls< 17) *Tw< 17) 

2863  If u 1 st -Fu* I st < I) 

2810  IF  Croup>»90  THEN  L396 

2813  IF  F1ag«l  THEN  PRINT  USING  L48; " * “ , TasknoSC Taskno , Rat  * ) , Loc at n, T i m 1 s 

t  C I ) , Iful st , Tpos 

2820  L48:  IMAGE  17X,  Kf  24A,  2X,  6D,  2X,  3D,  D,  2X,  6D,  3X,  2D.  2D 

2823  t GOTO  L823 

2830  !  TASK  FAILURE 

2333  L896:  IF  Flag-1  THEN  PRINT  USING  L393; "*% TasknoSC Taskno, Rat#) , - :  FAILED" , 
Loc at n, Tt  n»1  st  <  I  >  , Iful st , Tpos 

2840  L893:  IMAGE  17X.K, 16A,K, 2X,6D, 2X, 3D. D, 2X, 6D, 3X, 2D. 2D 
Nt  ask  -Nt  ask  ♦  1 
GOTO  L47 
Basgrp-Group 

IF  Group>-90  THEN  Basgrp«Group-90 

IF  Flag-1  THEN  PRINT  USING  L206 ; CrpnmSC Basgrp) , Loc at n 
IMAGE  tlX, 13A9 1 6X i 6D 
Nod*2-i 
GOTO  L47 

IF  FI ag« 1  THEN  PRINT  USING  L207;Locatn 
IMAGE  44X,6D 
NEXT  I 

!  CALCULATE  PATH  PROBABILITY  OF  SUCCESS 

Pthpos-Ccmi  n*Dfmf  n*Mnnri  n*Ls» 1 n*Twra 1  n 
IF  F1ag«l  THEN  PRINT 

IF  Flag-1  THEN  PRINT  USING  L208;"TIME  TO  COMPLETE  SORTIE  < HRS ) " , Pt ht 


2843  L823  * 
2830 

2833  L203: 

2860 

2863 

2870  L206: 
2873 
2880 

2883  L204 : 
2890  L207: 
2893  L47J 
2900 
2903 
2910 
2913 
1  m 

2928  L208: 

2923 

fu* 

2930  L401: 

2933 

2940 

os 

2943  L402: 
2930 

jpbCNpath) 
2933  L403: 
2960 


IMAGE  11X,K, 12X,3D.D 

IF  Flag-1  THEN  PRINT  USING  L401;*FUEL  CONSUMED  IN  SORTIE  CGALSV 


Iph 


IMAGE  11X,K, 13X , 6D 
IF  FI ag«l  THEN  PRINT 

IF  Flag»i  THEN  PRINT  USING  L402; "SORTIE  PROBABILITY  OF  SUCCESS ", Pt hp 
IMAGE  18X, K, 22X, D.  4D 

IF  Flag-1  THEN  PRINT  USING  L403J "SORTIE  FREQUENCY  OF  OCCURRENCE" , Una 


IMAGE  13X,K,21X,D.4D 
Pt -Pthpos*Una.;pb<Npath) 

2963  Tot  i  *«Tat :  m+Ptht  i  »*Pt 

2970  Tot fu«-Tot f u*+Pt *Pthfu« 

2973  !  LOOP  TO  INCREMENT  TOTAL  COUNTER  FOR  TASKS 

2983  FOR  I-l  TO  25 

2983  FOR  J»l  TO  4 

2990  TotcntCI , J) -To tent C I , J ) +Pt *Count C I , J } 

2993  NEXT  S 

3000  NEXT  I 

3003  PhoosCNpath)-Pthpos 

3010  NEXT  Nprt  «d 

3013  DISP  "SORTIE  NUMBER" , Npath , "  COMPLETED" 

3020  GOTO  .20 1 

3023  !  PRINT  SORTIE  SUMMARY 

3030  L9999:  '  CONTINUE 

3033  PRINTER  IS  16 
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PRINT 

DISP  Npaih,"  PAGES  OF  SORTIE  OUTPUT  COMPLETED.  PRESS  CONT  TO  GO  ON 


30*3 

3045 


3030  L219: 

3033 

3060 

3063 

3070 

3073 

3030 

3083 

3090 

3093 

3100 

3103 

3110 

3115  L9991: 

3120 

3123 

3130  L9992: 

3133 

3140 

3143 

3138 

3133 

3160 

ONS  " 

3163 

3170 

3173 

3180 

3183 

3190  L9997: 
3193 
3200 
ORTIE" 

3203  L9993: 
3210 


IMAGE  K,DD,K 

BEEP 

PAUSE 

DI3P 

FOR  Nprt*d*l  TO  Nptout 
PRINTER  IS  16 
PRINT  PAGE 

INPUT  "WOULD  YOU  LIKE  A  HARD  COPY  OF  SORTIE  SUMMARY,  <Y^N>?  " ,AnsS 

IF  Anj^-Y-  THEN  PRINTER  IS  0 

PRINT  PAGE 

PRINT 

PRINT 

PRINT  USING  L9991 ;  "  *************  SORTIE  SUMMARY  ************** 

IMAGE  1 8X, K 
PRINT 

PRINT  USING  L3992? Progrm*, "  SCENARIO  ",$c«nno 

IMAGE  30X, K , K , 2D 

PRINT 

PRINT 

PRINT  USING  L21 1 ; "  OPERATIONAL  REQUIREMENTS! " , "SELECTED  CRAFT- 
PRINT 

PRINT  USING  L212J-  MAXIMUM  DURATION  “ , Mxt i m* , "  HOURS" , Crf 

PRINT  USING  L213;"  RANGE  FRACTION  ",  R*n<gt>, -DISPLACEMENT"  ,  I  di  sp,  -  T 


PRINT  USING  L213;"  AVERAGE  SEA  STATE  " , 3s*vg, "FUEL  FRACTION  ", Fufrc 

IF  Np*th-0  THEN  L9994 

PRINT 

PRINT 

PRINT  USING  L9997; "FRACTION  OF  SCENARIO  COMPLETED  ",Tot prb 

IMAGE  23X, K , D. 4D 

PRINT 

PRINT  USING  L9993; "SORTIE", "SORTIE", "SORTIE" , "FREQUENCY", "SORTIE", "S 


IMAGE  13X,K,2X,K,2X,K,2X,K,3X,K,3X,K 

PRINT  USING  L9994J "NO. ", "TIME", “FUEL", "OF", "PROBABILITY", "SUCCESSFUL 


3213  L9994!  IMAGE  13X,  K,  4X, K, 4X, K, 7X, K, 8X, K, 4X, K 

3220  PRINT  USING  L9993; " (HRS) "," <GALS) ", “OCCURRENCE" , "OF" , "SUCCESS" 

3223  L9993J  IMAGE  22X, K, 2X, K, 2X, K, 4X, K, 2X, K, 4X, K 

3230  PRINT 

3235  PRINT 

3240  Propos*0 

3243  FOR  1*1  TO  Np*th 

3230  Adjprb*Un*,jpb< I) 

3233  Pthpos*Phpos< I) 

3260  Cont rb*Pthpos*Ad jprb 

3263  Propo**Propos+Cont rb 

3270  PRINT  USING  L9998; I , Pathtm< I) , Ipt hf u< I) , Ad j prb , P\ hpos , Cont rb 

3273  L9998!  IMAGE  13X, 4D, 4X, 3D. D, 3X, 6D, 3X, D. 4D, 3X, D. 4D, 3X, D. 4D 
3280  NEXT  I 

3283  !  CALCULATE  TIME  TO  COMPLETE  AVERAGE  SORTIE  AND 

3290  !  FUEL  CONSUMED  IN  AVERAGE  SORTIE 

3293  Av«t i «*Tot i ra/'Propcs 

3300  Av*f u«*Tot f uc/Propos 

3303  PRINTER  IS  16 

3310  PRINT 

3313  DISP  "  END  OF  SORTIE  SUMMARY.  PRESS  CONT  TO  GO  ON." 

3320  BEEP 

3323  PAUSE 

3330  DISP 

3333  !  PRINT  OVERALL  RESULTS 

3340  PRINT  PAGE 

3343  INPUT  "WOULD  YOU  LIKE  A  HARD  COPY  OF  SCENAPTO  OVERALL  RESULTS 
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3343 
"  i fln$< 
3330 
3333 
3360 
3363 
**M 


INPUT  "MOULD  YOU  LIKE  R  HARD  COPY  OF  SCENARIO  OVERALL  RESULTS  <Y/N>? 

IF  An**-"?-  THEN  PRINTER  13  0 

PRINT  PAGE 

PRINT 

PRINT  USING  L430; -  *************  SCENARIO  OVERALL  RESULTS  *********** 


3370  L480: 

3373 

3330 

3333  L481: 

3390 

3393 

3400 

3403 

3410 

3413 

ONS  " 

3420 

S" 

3423 

3430 

3433 

3446 

3445 

3450  L403: 

3433 

3460 

Propos 

3463  L406: 

3470 

3473 

3488 

3483  L407: 

3490 

3495 

3500  L408: 

3305 

3318 

3313  L489: 
3320 
3323 
3330 

3333  L410; 

3340 

3345 

3330  L522: 
3333 

3360  L323: 

3363 

3370 


IMAGE  13X,K 
PRINT 

PRINT  USING  L431 ;Progrm$, “  SCENARIO  ",Scenno 

IMAGE  30X , K , K , 2D 

PRINT 

PRINT 

PRINT  USING  L2U;  " 

PRINT 

PRINT  USING  L212; " 

PRINT  USING  L213 ; M 


PRINT  USING  L214J- 


OPERATIONAL  REQUIREMENTS: ", "SELECTED  CRAFT- 

MAXIMUM  DURATION  ",Mxtim#,"  HOURS  ",  CrfnmS 
RANGE  FRACTION  " , R*ngf r , "D ISPLACEMENT" , I d i sp , "  T 

VISIBILITY  ", Visds2S, "DESIGN  SPEED ", Idspd , -  KNOT 

AVERAGE  SEA  STATE  - , Ssavg, -FUEL  FRACT ION" , Fuf rc 


PRINT  USING  L215; - 
P*rprb»Tot prb*l00 
PRINT 
PRINT 

PRINT  USING  L403;H  PERCENT  OF  SCENARIO  COMPLETED  ",P*rprb 

IMAGE  23X,K,3D.D 

PRINT 

PRINT  USING  L406; "PROBABILITY  OF  SUCCESSFULLY  COMPLETING  SCENARIO 


IMAGE  13X, K , 2X, D. 2D 
PRINT 
PRINT 

PRINT  USING  L407; "SPECIFICATIONS  OF  THE  AVERAGE  SORTIE:" 

IMAGE  13X,K 
PRINT 

PRINT  USING  L403; -TIME  TO  COMPLETE  AVERAGE  SORTIE" , Av*t i m, -  HRSH 
IMAGE  23X,K,6D.DfK 
PRINT 

PRINT  USING  L409 ; -FUEL  CONSUMED  IN  AVERAGE  SORTIE" , Av#fup, " GALS - 
IMAGE  23X,K,6D.D,K 
PRINT 
PRINT 

PRINT  USING  L4 10; "TASK  COMPOSITION  IN  AVERAGE  SORTIE:" 

IMAGE  13X,K 
PRINT 

PRINT  USING  L322; "TASK-, “TIMES", "TASK" 

IMAGE  23X,K,6X,K,5XSK 

PRINT  USING  L323; "CODE- , "COMPLETED" , "NAME- 
IMAGE  23X,K,4X,K,3X,K 
PRINT 

PRINT  USING  L7962; "ON  SCENE:" 

3573  L7002:  IMAGE  19X,K 

3380  IF  Totcnt  < 1 , 4) >8  THEN  PRtNT  USING  L7003 

3383  L7003:  IMAGE  23X, K, 6X, 2D. 2D, 3X, K 
3390  IF  Tot  cnt  < 2 f  4>  >0  THEN  PRINT  USING  L7803 

£  FROM  CG  VESSEL- 

3393  IF  Totcnt  <3, 4) >8  THEN  PRINT  USING  L7083 

E  ON  ANOTHER  VESSEL- 
3606 

SS ISTANCE" 

3683 


N" 

3618 

PMENT" 

3613 

3620 


IF  Totcnt  < 4, 45  >8  THEN  PRINT  USING  L7903 
IF  Totcnt C3,4)>0  THEN  PRINT  USING  L7083 
IF  Totcnt <6,4>>0  THEN  PRINT  USING  L7003 


IF  Totcnt  <7, 4} >0  THEN  PRINT  USING  L7O03 
IF  Totcnt  <3, 4) >0  THEN  PRINT  USING  L7883 


"3RD- , Totcnt < 1 , 4) , "BOARD" 
"FFF",Totcnt<2,4>, "FIGHT  FIR 
*FF0",Totcnt<3,4), "FIGHT  FIR 
"GAS" , Totcnt <4, 4) , "GENERAL  A 
-INS" , Totcnt <3, 4) , " INSPECT  10 
"LEO" ,Totcnt<S,4>, "LOAD  EQUI 


-LOI" , Totcnt  <7, 4) , "LOITER" 

" LS B " , 7otcnt<3, 4 ) , " LAUNCH  S M 
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ALL  BOATS" 

3623  IF  Tot cnt  <9, 4) >0  THEN  PRINT  USING  L7O03; 

CTI VITIES" 

3630  IF  Tot cnt  < 10, 4) >0  THEN  PRINT  USING  L7003 

OIL  SPILL1* 

3633  IF  Totcnt  < 1 1 , 4) >0  THEN  PRINT  USING  L70S3 

D  ASS I STANCE" 

3640  IF  Totcnt  < 12, 4) >0  THEN  PRINT  USING  L7003 

E  COMMANDER < GENERAL) " 

3643  IF  Totcnt  < 13, 4) >0  THEN  PRINT  USING  L7003 

E  BOARDING  PARTY*4 

3633  IF  Totcnt  < 14, 4) >0  THEN  PRINT  USING  L7003 

E  OBJECTS*1 

3633  IF  Totcnt  < 13, 4) >0  THEN  PRINT  USING  L7003 

PEOPLE" 

3660  IF  Totcnt  <16,4) >0  THEN  PRINT  USING  L7003 

E  SMALL  BOAT" 

3663  IF  Totcnt <17, 4)>0  THEN  PRINT  USING  L7003 

T  SPECIAL  INTEREST  VESSEL" 

3670  IF  Totcnt  < 13, 4) >0  THEN  PRINT  USING  L7003 

3673  IF  Totcnt  < 19 , 4) >0  THEN  PRINT  USING  L7003 

TER  SAMPLE- 

3680  IF  Totcnt  <20, 4) >0  THEN  PRINT  USING  L7003 

EQUIPMENT- 

3683  IF  Totcnt <21, 4)>0  THEN  PRINT  USING  L7003 

UIPMENT  FROM  SMALL  BOAT- 

3690  IF  Totcnt <22, 4) >0  THEN  PRINT  USING  L7003 

UIPMENT  9  DRIFT- 

3693  IF  Totcnt  <23,4) >0  THEN  PRINT  USING  L7003 

UIPMENT  9  FIXED  POSITION- 

3700  FOR  1-1  TO  23 

3703  IF  Tot  cnt  < 1 , 4 ) >0  THEN  L494 

3710  NEXT  I 

3715  PRINT  USING  L7027;UNO  TASKS" 

3720  L7027:  IMAGE  23X,K 

3723  L494:  PRINT 

3730  PRINT  USING  L8802; "REDUCED  SPEED:" 

3733  L8002:  IMAGE  19X,K 

3740  IF  Totcnt <1,3)>0  THEN  PRINT  USING  L7003; 

R  DISTRESSED  UNIT:  FOUND" 

3743  IF  Tot  cnt  <  20 , 1 ) >0  THEN  PRINT  USING  L7003 

FOR  DISTRESSED  UNIT:  FAILED" 

3730  IF  Totcnt  <2, 3) >0  THEN  PRINT  USING  L7003; 

RT- 

3733  IF  Totcnt  <3, 3) >0  THEN  PRINT  USING  L7003; 

R  PEOPLE:  FOUND" 


3760 


IF  Totcnt <22, 1)>0  THEN  PRINT  USING  L7003 


FOR  PEOPLE:  FAILED" 

3763  IF  Totcnt  <4, 3) >0  THEN  PRINT  USING  L7003; 

QL" 

3770  IF  Totcnt <3, 3)>0  THEN  PRINT  USING  L7003; 

3773  FOR  1*1  TO  3 

3730  IF  Totcnt  < 1 , 3) >0  THEN  L493 

3783  NEXT  I 

3790  PRINT  USING  L7027J "NO  TASKS" 

3793  L4935  PRINT 

3880  PRINT  USING  LS008 ; " CRU ISE  SPEED- 

3805  L8088:  IMAGE  19X,K 


3810 

IF 

Totcnt  < 1 , 2) >0 

THEN 

PRINT 

USING 

L7803; 

3815 

CRAFT- 

IF 

Totcnt  <2, 2) >0 

THEN 

PRINT 

USING 

L7003; 

3820 

FLEET- 

IF 

Totcnt  <3, 2) >0 

THEN 

PRINT 

USING 

L7093; 

3823 

IF 

Totcnt  <  4, 2) >0 

ThEN 

°R  INT 

USING 

L7303  J 

3830 

R  FLEET- 

IF 

Totcnt  < 3, 2) >0 

THEN 

PRINT 

USING 

L7003 I 

MAC" , Totcnt  <9 

'* MOS"  ,  Totcnt  < 

"OBA" ,  Totcnt  < 

"OSC" , Totcnt  < 

"  RBP “ , Totcnt < 

"ROB" , Totcnt  < 

"RPE", Totcnt 

"RSB" , Totcnt 

"SSI", Totcnt 

"S2E'4,  Totcnt 
" TUS ",  Tot cnt 

"ULQ", Totcnt 

"WQB", Totcnt 

"WQD", Totcnt 

"WQF", Totcnt 


,4), "MONITOR  A 

10.4) , "MONITOR 

11.4) , "ON  BOAR 

12.4) , "ON  3CEN 

13.4) , "RETRIEV 

14.4) , "RETRIEV 

13.4) , "RESCUE 

16.4) , "RETRIEV 

17.4) , " STAKEOU 

13.4) , "SEIZE" 

19.4) , "TAKE  WA 

20.4) , "UNLOAD 

21.4) , "WORK  EQ 

22.4) , "WORK  EQ 

23.4) , " WORK  EQ 


"SDU", Totcnt < 1,3), "SEARCH  FO 
; "SDU", Totcnt <20, l), " SERRCH 
"SES",Totcnt<2,3), "SLOW  E3C0 
"SPE",Totcnt<3,3), "SEARCH  FO 
J "SPE”, Totcnt <22, i), "SEARCH 
"SPT",Totcnt<4,3), "SLOW  PATR 
"TOW" , Totcnt  < 5,3) , "TOW" 


"ESC", Totcnt < 1,2), "ESCORT* 

M I DC" , Totcnt  <2, 2) , • IDENTIFY 

" IDF" , Totcnt < 3,2) , "IDENTIFY 

“PAT", Totcnt  <4, 2) , "PATROL" 
"SFL", Totcnt <3, 2) , "SEARCH  FO 
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3833  IF  Tot cnt  <6, 2>  >0  THEN  PRINT  USING  L7O03; 

R  SHIP:  FOUND" 

3340  IF  Tot  cnt  <25,1  )‘>0  THEN  PRINT  USING  L7Q03 

FOR  ship:  FAILED" 

3843 

EUIPMENT" 


3830 

PEOPLE" 

3833 

3360 

3863 

3370 

3873 

3880  L497: 
3883 
3890 
3893 


IF  Totcnt  <  7, 2>  >0  THEN  PRINT  USING  L7003; 
IF  Totcnt <3, 2) >0  THEN  PRINT  USING  L7003; 


IF  Totcnt  <9, 2) >0  THEN  PRINT  USING  L7003; 
FOR  1*1  TO  9 

IF  Tot cnt  < 1 , 2>  >0  THEN  L497 
NEXT  I 

PRINT  USING  L7027;  "NO  TASKS" 

PRINT 

PRINT  USING  L8008J  “FLANK  SPEED:1* 

IF  Totcnt  < 1 , 1  )  >0  THEN  PRINT  USING  L7003; 
IF  Totcnt  <2, D  >0  THEN  PRINT  USING  L7003; 


" SSH” , Tot  cnt <6, 2 > 
;  “SSH1* ,  Totcnt  <23, 
"TEQ" ,Totcnt<?,2> 
“TPE“, Totcnt<3,2) 
“TRA“,Totcnt<9,2) 


-DSH",  Totcnt  (1,0 
"  INT" , Totcnt  <2, 1) 


, “SEARCH  FO 
1>, “SEARCH 
,  “TRANSPORT 
, “TRANSPORT 
, “TRANS  I T“ 


,  “  DASH “ 

,  “INTERDICT 


3900 

3903 

3910 

3913 

3920  L502: 

3923 

3930 

3933 

3940 

3943 

3930 

3933 


FOR  I»1  TO  2 

IF  Tot cnt  C I , l )  >0  THEN  L302 
NEXT  I 

PRINT  USING  L7827 ;  “NO  TASKS'*  ~  ^ 

PRINT 

PRINTER  IS  16 

DISP  “  END  OF  OVERALL  RESULTS.  PRESS  CONT  TO  GO  ON. * 

BEEP 

PAUSE 

DISP 

PRINT  PAGE 

INPUT  “WOULD  YOU  LIKE  A  HARD  COPY  OF  SCENARIO  EVALUATION  <Y/N)7  “  ,  An 


Si 

3960 

3963 

3970 

3973 

3980  L482: 

3983 

3990 

3993 

4000 

4005 

4010 

4013 

ONS* 

4020 

S* 

4023 

4030 

4033 

4040 

4045 

4030 

4033 

4060 

RATION- 

4065  L3U: 

4070 

4073 

4030 

4085  L312: 
4090 

4093  L313: 

4100 

4103 

4U0  L2802: 
4US  *  IF 


IF  Ans**"Y"  THEN  PRINTER  IS  0 

PRINT  PAGE 

PRINT 

PRINT  USING  L482; **************  SCENARIO  EVALUATION  *************" 
IMAGE  1 6X f  K 

PRINT  USING  L481 ; Progrm#, *  SCENARIO  “,Scenno 

PRINT 

PRINT 

PRINT  USING  L21l;n  OPERATIONAL  REQU IREMENTS: “SELECTED  CRAFT- 
PRINT 

PRINT  USING  L212;“  MAXIMUM  DURATION  “,Mxtim*,“  HOURS“ , Crf nml 
PRINT  USING  L213?“  RANGE  FRACTION  ** ,  Rangf  r ,  “ D I SPLACEMENT *  ,  I d i  sp ,  "  T 

PRINT  USING  L214J ‘ 


VISIBILITY  ",Visds2S, “DESIGN  SPEED" , Idspd, "  KNOT 


FOR  1-1  TO  23 
FOR  J*l  TO  4 

Im<ItJ5*Totcnt<I, J>*Nbays 

NEXT  J 

NEXT  I 

PRINT 

PRINT 

PRINT  USING  L311; “IMPORTANT  TASKS  COMPLETED  IN  “,Ndays,!‘  DAYS  OF  OPE 

IMAGE  18X,K,4D,K 

PRINT 

PRINT 

PRINT  USING  L312; “TASK", "TIMES", “TASK" 

IMAGE  23X,K,6X,K,3X,K 

PRINT  USING  L3l3i “CODE", “COMPLETED" , “NAME- 

IMAGE  23X,K,4X,K,3X,K 

PRINT 

PRINT  USING  L2002 ; “ON  SCENE:" 

IMAGE  1 9X, K 

AN  IMPORTANT  TASK  IS  NOT  PERFORMED,  ITS  TASK  CODE 
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4120  i  AND  TftSK  NAME  WILL  STILL  APPEAR  IN  THE  OUTPUT,  WITH 
4123  !  THE  NUMBER  OF  TIMES  COMPLETED  BEING  O.0.  IF  IT  IS 

4130  »  DESIRED  AH  IMPORTANT  TASK  NOT  PERFORMED  WILL  HOT  APPEAR 

4135  1  IN  THE  OUTPUT. 

4140  IF  < Im<  t , 4 )  >»0 )  AND  < I mpt sk < 1 , 4 > » 1)  THEN  PRINT  USING  L2003;  "BRD",  I  m  < 


1.4) ,  -BOARD** 

4145  L2003;  IMAGE  23X , K , 6X , 5D , SX , K 

4130  IF  < Im<2, 4) >30>  AND  < Impt sk <2, 4)»l >  THEN  PRINT  USING  L2003 ; " FFF " , I m < 

2.4) , -FIGHT  FIRE  FROM  CG  VESSEL" 

4153  IF  < I m<  3 , 4 )  >*0  )  AND  < Imptsk <3, 4)*1>  THEN  PRINT  USING  L2003 ;  11 FFQ  "  ,  I  m  < 

3.4) , "FIGHT  FIRE  ON  ANOTHER  VESSEL “ 

4160  IF  <Im<4,4>>*0>  AND  <  Impt sk < 4 , 4 ) - 1 )  THEN  PRINT  USING  L2003 ; " GAS " , I m< 

4. 4) , -GENERAL  ASSISTANCE." 

4163  IF  <Im<3,4)>-0)  AND  < Impt sk <3, 4)«t )  THEN  PRINT  USING  L2003 ;  “  INS  **  ,  Im< 

5.4) ,  14  INSPECT  ION- 

4170  IF  < Im<6, 4) >*0)  AND  < Impt  sk  <6,4>»l)  THEN  PRINT  USING  L2903 ; "LEQ " , I m< 

6.4) , -LOAD  EQUIPMENT" 

4175  IF  < Im<7, 4) >*0)  AND  <  Imptsk <7, 4>-l )  THEN  PRINT  USING  L2003 ; "LO I " , I m< 

7.4) , "LOITER" 

4180  IF  <I»<8,4)>«0)  AND  < Impt sk <3, 4)-i >  THEN  PRINT  USING  L2003 ; "LSB " , In < 

8.4) , "LAUNCH  SMALL  BOAT- 

4133  IF  <  I  m  <  9 , 4  ) >*0  )  AND  < Impt sk < 9, 4)-l )  THEN  PRINT  USING  L2003 ; " MAC" , I m < 

9.4) , "MONITOR  ACTIVITIES" 

4190  IF  <  Im<  10,4)  >*0)  AND  < Impt sk < 10, 4)*1 >  THEN  PRINT  USING  L2003;  " MOS '* ,  I 

m<10, 4), -MONITOR  OIL  SPILL- 

4193  IF  < Im< 1 1 , 4) >*0)  AND  < Impt sk < 1 1 , 4) *  1 )  THEN  PRINT  USING  L2003; "OBA" , I 

» <  1 1 , 4 ) , "ON  BOARD  ASSISTANCE" 

4200  IF  < Im< 12,4) >*0)  AND  < Impt sk < 12, 4)»1 )  THEN  PRINT  USING  L2003 ; " OSC" , I 

m<12,4),"0N  SCENE  COMMANDER < GENERAL) " 

4203  IF  <Ira< 13,4>>-0)  AND  Clmpt sk <13, 4)-l )  THEN  PRINT  USING  L2003; “RBP" ,  I 

13, 4) , "RETRIEVE  BOARDING  PARTY" 

4210  IF  < Im< 14,4) >«0)  AND  < Impt sk < 14, 4)«l )  THEN  PRINT  USING  L2003 ; " ROB “ , I 

m<14, 4), "RETRIEVE  OBJECTS" 

4213  IF  < Im< 13, 4) >*0)  AND  < Imptsk < 13, 4>» 1 )  THEN  PRINT  USING  L2003; "RPE" , I 

m< 15, 4), "RESCUE  PEOPLE" 

4220  IF  a«<l6,4>>«0)  AND  < Impt sk < 16, 4 > « 1 )  THEN  PRINT  USING  L2003 ; "RSB - ,  I 

*<16, 4), "RETRIEVE  SMALL  BOAT- 

4223  IF  <Ia<17,4>>-8)  AND  < Impt sk < 1 7 , 4 ) * 1 )  THEN  PRINT  USING  L2003; "SSI", I 

»<!?, 4), "STAKEOUT  SPECIAL  INTEREST  VESSEL- 

4230  IF  < Im< 18,4) >*0)  AND  < Impt sk < 18, 4)»1 )  THEN  PRINT  USING  L2003; " S2E" , I 

•  08,4),  "SEIZE" 

4233  IF  < Im< 19, 4) >*0)  AND  < Impt sk < 19, 4>*1 )  THEN  PRINT  USING  L2003 ; " TWS " , I 

«< 19, 4), "TAKE  WATER  SAMPLE- 

4240  IF  <Ia<20,4>>-0)  AND  <Imptsk(20,4)*l)  THEN  PRINT  USING  L2083 ; "ULQ" , I 

»<20, 4), "UNLOAD  EQUIPMENT- 

4243  IF  < Im<21 , 4) >*0)  AND  < Imptsk <21 , 4)»1 )  THEN  PRINT  USING  L2003 ; " WQB " , I 

m<21,4), "WORK  EQUIPMENT  FROM  SMALL  BOAT- 

4230  IF  C  Im<22,  4)  >*0)  AND  <  Imptsk  <22,  4)-i  )  THEN  PRINT  USING  L2003 ;  ** WQD"  ,  I 

m<22,4), -WORK  EQUIPMENT  9  DRIFT- 

4233  IF  <Im<23,4>>«0>  AND  < Impt sk <23, 4 >»1 )  THEN  PRINT  USING  L2003 ; " UQF" , I 

m<23,4),  "WORK  EQUIPMENT  0  FIXED  POSITION** 

4260  FOR  I*t  TO  23 

4263  IF  C Im< I , 4) >«8 )  AND  < I mpt sk < I , 4 ) » t )  THEN  L694 

4270  NEXT  I 

4273  PRINT  USING  L2027; "NO  IMPORTANT  TASKS  SPECIFIED" 

4280  L694:  PRINT 

4283  PRINT  USING  L3001 ; "REDUCED  SPEED:" 

4290  L3061:  IMAGE  19X,K 

4293  IF  <Im<l,3)>»0>  AND  < Impt sk < 1 , 3)»1 )  THEN  PRINT  USING  L2003 ; " SDU " , Ira < 

1.3) , "SEARCH  FOR  DISTRESSED  UNIT:  FOUND" 

4300  IF  < I m< 1 , 3) >*0 )  AND  < Imptsk < 1 , 3)-l >  THEN  PRINT  USING  L2003 ; " SDU" , Im< 

20, 1), “SEARCH  FOR  DISTRESSED  UNIT:  FAILED" 

4303  IF  :im<2,3>>*0)  AND  < Impt sk <2, 3) -1 )  THEN  PRINT  USING  L2003 ; " SES" , I ra< 

2. 3) , "SLOW  ESCORT" 

4310  IF  <Im<3,3>>«0)  AND  < Impt sk <3, 3>» l )  THEN  PRINT  USING  L2003 ; "SPE "  ,  I  m  < 

3. 3)  ."SEARCH  FOR  PEOPLE:  FOUND" 
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4313  IF  <  I  m  <  3 , 3  >  >  -0  >  AND  C Imptsk C3, 3>*1 >  THEN  PRINT  USING 

22,1),  “SEARCH  FOR  PEOPLE:  FAILED** 

4320  TF  <tm<4,3>>-0)  AND  < Imptsk  <4, 3>- 1 )  THEN  PRINT  USING 

4.3) ,  "SLOW  PATROL4* 

4323  IF  C lm<3, 3) >*0)  AND  < Imptsk <3, 3>-l>  THEN  PRINT  USING 

3.3) ,  “TOW** 

4330  FOR  I-t  TO  3 

4333  IF  CImCI,3>>-0>  AND  C Imptsk < I , 3>-l )  THEN  L693 

4340  NEXT  I 

4343  PRINT  USING  L2027;  “NO  IMPORTANT  TASKS  SPECIFIED** 

4330  LS93:  PRINT 

4333  PRINT  USING  L3O03; “CRUISE  SPEED:" 

4360  L3008:  IMAGE  19X,K 


L2903 ; "SPE", ImC 
L20Q3J "3PT" , ImC 
L2003J “TOW" , ImC 


4363 

IF 

C ImC 1 , 2) >-0) 

AND 

< Imptsk  C 1 , 2) -1 ) 

THEN 

PRINT 

USING 

L2003J 

"ESC", ImC 

1,2), 

"ESCORT" 

4370 

IF 

C Im<2, 2) >*3) 

AND 

C Imptsk  C2, 2>-l ) 

THEN 

PRINT 

USING 

L2003; 

"  I DC" , ImC 

2,2), 

"IDENTIFY 

CRAFT" 

4373 

IF 

C InC3, 2) >-0> 

AND 

< Imptsk  <3, 2)-l ) 

THEN 

PRINT 

USING 

L2003; 

"IDF", ImC 

3,2), 

"IDENTIFY 

FLEET" 

4380 

IF 

CIm<4,2)>«0) 

AND 

( Imptsk  <4, 2)*1 > 

THEN 

PRINT 

USING 

L2003 ; 

"PAT", ImC 

4,2), 

"PATROL" 

4383 

IF 

C ImC  3, 2) >«0> 

AND 

C Imptsk  C5, 2>-l ) 

THEN 

PRINT 

USING 

L20035 

"SFL" , ImC 

3,2), 

"SEARCH  FOR  FLEET" 

4396 

IF 

C ImC6, 2) >-0) 

AND 

< Imptsk  C6, 2>-l ) 

THEN 

PRINT 

USING 

L2003; 

"SSH" , ImC 

6,2), 

"SEARCH  FOR  SHIP:  FOUND" 

4393 

IF 

<ImC6,2)>-0> 

AND 

< Imptsk (6,2)-l) 

THEN 

PRINT 

USING 

L2083; 

" SSH" , ImC 

23,1) 

, "SEARCH  FOR  SHIP:  FAILED" 

4400 

IF 

C I mC7, 2) >-0) 

AND 

C Imptsk  <7, 2)*1 ) 

THEN 

PRINT 

USING 

L2003; 

"TEG", ImC 

7,2), 

"TRANSPORT 

EQUIPMENT" 

4403 

IF 

C Im  <  8 , 2 ) >-0 ) 

AND 

<  Imptsk  <8, 2)-l ) 

THEN 

PRINT 

USING 

L2003; 

"TPE" , ImC 

3,2), 

"TRANSPORT 

PEOPLE" 

4410 

IF 

C ImC9, 2) >-0) 

AND 

C Imptsk  <9, 2)-l ) 

THEN 

PRINT 

USING 

L2003; 

"TRA", ImC 

3,2), 

"TRANSIT* 

4413 

FOR 

1-1  TO  9 

4420 

IF 

< ImC I , 2) >-0 ) 

AND 

C  Imptsk  C 1 , 2)-l ) 

THEN 

L697 

4423  NEXT  I 

4430  PRINT  USING  L7027; "NO  IMPORTANT  TASKS  SPECIFIED" 

4433  L697:  PRINT 

4440  PRINT  USING  L3013; "FLANK  SPEED:" 

4443  L3013:  IMAGE  19X,K 

4430  rF  <Im<l,l)>«6>  AND  < Imptsk < 1 , 1 >- l )  THEN  PRINT  USING 

1.1) , "DASH- 

4433  IF  < Im<2, 1 ) >-0>  AND  CImpt sk C 2, 1 ) » 1 )  THEN  PRINT  USING 

2.1) , "INTERDICT" 


L2003; " DSH" , ImC 
L2003; " INT" , ImC 


4460 

44E3 

4470 

4473 


FOR  I-t  TO  2 

IF  C ImC I , 1 ) >*0)  AND  < Imptsk < I , 1 )«l )  THEN  L702 
NEXT  I 

PRINT  USING  L2027; "NO  IMPORTANT  TASKS  SPECIFIED" 


4480  L20272  IMAGE  23X,K 
4483  L702:  GOTO  L9990 
4490  L9994:  PRINT 
4*93  PRINT 

4300  PRINT  USING  L9993;"N0  SORTIES  CAN  BE  COMPLETED" 

4303  L3993 :  IMAGE  24X,K 
4310  L9990:  NEXT  Nprtcd 
4315  PRINT 

4320  DISP  "  END  OF  SPRPOS  OUTPUT." 

4323  PRINTER  IS  16 

4330  RETURN 

4333  !  FSSHP 

4340  !  CALCULATES  PROBABILITY  AND  TIME  FOR  SEARCH 

4343  !  FOR  3HIF  TASK 

4530  Fsshp:  !  CONVERTED  SUBROUTINE  FSSHP 
4333  IF  <Sw<*6)  OR  <Tm*x<-e>  THEN  Lh99 

4360  t *t*. 1 

4363  Del th»D#l t *t/2 
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4370 

4373  Lh99: 
4380 
4383 
4390 
4393 
4800  ! 

4605  Lh90: 
4610 
4613 
4620 


GOTO  Lh90 
PS-0 
Pf«l 
Ts*0 
Tf»0 

QPTI  l&U 

INITIALIZE  COUNTERS 
Fprod* 1 
Tnua*r*0 
Tdenom-0 
Psdul t »i 


4623  !  START  AT  TIME  ZERO 

4630  T*0 

4633  i  FIND  TARGET'S  AREA  THAT  IS  STILL  UNSEARCHED 
4640  Lh20:  Atgtot  »PI»<E+Vt  Ar*<Tb*f+T  +  D#Uh>  )^2 


4643 

4650 

4633 

4660 

4663 

4670 

4673 

4690 

4683 

4690 

4695 

4700 

4703 


Asrchd»^w*$p**d<2)*<T+D*l th) 

At  guns* At  gt ot -Asrchd 
I  TEST  AREA  UNSEARCHED; IF  .LE.  ASRCHD, THEN  PS*1,ELSE  CALCULATE 
!  PROBABILITY  OF  SUCCESS  IN  NEXT  DELTA  T 
IF  At guns <* Asrchd  THEN  Lhl00 
Psdul t*$u*$p**d<2)*D*1 t At/Atguns 
Fprod»Fprod*< 1-Psd*1 t ) 

Tnu»#r«Tnum*r+<T+D«t th)*Psd*1 t 
Td#nom*Td*nom+Psd*1 t 
T*T+D# 1 t At 
!  TEST  FOR  TIME 

IF  T>«T»ax  THEN  Lhl01 
GOTO  4893 


4710  Lhl00:  P*«l 


4713 

4720 

4723 

4730 

4733 

4740 

4745 


Pf«0 

Tnu»*r«Tnui»»r+(T+Df1  th>*P*d*1  t 
Td*no»*Td#nom+Psd»1 t 
Ts»Tnur»*r/Td«nofB 
Tf  «Th>ax 
RETURN 

!  TIME  IS  TMAX 


4760 
4763 
4770 
4773 
4780 
4785 
4790 
4793  PtwdJ 
4800  * 

4803  L10S 


4730  LM101;  Ps»l-Fprod 
4733  Pf*Fprod 

Ts-Tnumur/Tdsnoa 
T  f  *Tbax 
RETURN 

PTWD 

TOM  DISPLACEMENT  CUMULATIVE  PROBABILITY  DISTRIBUTION 

Iu^5iD)V?OBfi8ILITY  THflT  CRflFT  T0  BE  ™WED  has  DISPLACEMENT  <  D 
AVTWDS  *  AVERAGE  DISPLACEMENT  VALUE  THAT  CAN  BE  TOWED 
!  CONVERTED  SUBROUTINE  PTWD 
In-Toudsp 

A  T  .?U^TFtlFf3<  In’0’  Towdi  5<  1  f  Towdtb)  ,0,  Towdi s< 2,  Towdtb)  ,  .  2,  Towdi s< 3,  Tow 
4810 ”  4’  T°W<1ptoud»Outtb> ’ " 6’ Towdi s<5’ Toudtb) > • 3. Towdi *<6, Towdtb) , 1 , 99*999,  1  ) 

4813  In»Ptowd/2 

c  0u!rHFf8<In,  3,0, 0, Towdi  *<  1 ,  Towdtb  >  ,  .2,  Towdi  s<2,  Towdtb),  .  4,  Towdi  *C3, 
4823  LSa!  Awtwds-iut“dtb) ’ '  8*  To,*<'  *«• ^wdtb) , 1 , Towdi s<6, Towdtb) , 1 , 999999) 

4630  L100:  RETURN 

4833  !  PUSHDOUN  LIST  SUBROUTINES 

4840  !  PPUSH 

4843  !  PUT  A  NUMBER  ON  THE  PUSHDOWN  LIST 

!  CONVERTED  SUBROUTINE  FPUSH 
INTEGER  P*hl *t , Ptr, I , Entry 
Ptr-Ptr+l 
P*h I  st  <  Pt  r ) »£nt ry 
T i at *t  <Ptr )*Lkt i mu 
Fuel *t  <Ptr)»Lkfu* ] 

Prb 1 st  <  Pt  r ) »Lkprob 
RETURN 


4830  Fpush: 

4833 

4860 

4863 

4870 

4873 

4880 

4883 
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FPOP 


4890 

4893 

4900 

4903 

4910 

4913 

4920 

4923 

4930 

4933 

4940 

4945 

4930 

4933 

4960 

4963 

4970 

4973 

4980 

4983 

4990 

4993 

3080 

5005 

3010 

3013 

5020 

5023 

5030 

3033 

3040 

5043 

3030 

S053 

5060 

5065 

5070 

5073 

3080 

3083 

5090 

3093 

3100 

3103 

5110 

3113 

5120 

5123 

5130 

3133 

5140 

3143 

3130 

3133 

3160 

3163 

3170 

5173 

3180 

3183 

3190 

3193 

3200 

3203 

5210 

3215 


1  POP  8  NUMBER  OFF  THE  PUSHDOWN  LIST 

t 

Fpop:  !  CONVERTED  SUBROUTINE  FPOP 
IF  Pt r< 0  THEN  L9001 
Popped*Psh 1 st  <Ptr ) 

Pshl st  (Ptr )«0 
Popt 1 «*Ti ft  1 st  <Ptr > 

Ti ml st  <Ptr)*0 
Popfue*Fue1 st  <Ptr ) 

Fue 1 st  <Ptr>»0 
Popprb*Prbl st (Ptr) 

Prbl st  <Ptr )»0 

Ptr«Ptr-l 

RETURN 

L9001:  Popped*- 1 
Pt  r«0 
RETURN 

i 

!  FCC17 

j 

!  FINDS  THE  CARGO  CARRYING  PARAMETER  FOR  THE 
\  TRANSPORT  MASTER  TRSK 

i 

Fee  171  !  CONVERTED  SUBROUTINE  FCC17 

Groupl*Group 

IF  Group>*90  THEN  Groupl*Group-80 

i 

!  GET  ROW  OF  GROUP  AND  INSTANCE 

j 

FOR  Irow* 1  TO  100 

IF  CGpdat 1 < Irow, 1 >*Groupt )  AND  (Gpd*t t < Irou, 2)« Inst >  THEN  L1712 
NEXT  Irow 

L1712:  IF  (NodtiOl)  AND  <Node2<>2)  THEN  L1734 
Are**Gpdat2( Irow,  9) 

Ught*Gpd*t2< Irow,  10) 

GOTO  2910 

LI  734;  IF  <Nodel<  >3)  AND  <Node2<>4)  THEN  L1799 
Are**Gpdit2< Irow, 5) 

Wght-GpdAt  2< Irow, 6) 

L1700:  Cc0*0 

IF  (Rre*<  »Deck )  AND  <Wght<*C*rgcp)  THEN  Cc0*i 
L1799:  RETURN 

i 

!  FF 

I  FINDS  V  VALUE  ON  A  STRAIGHT  LINE,  GIVEN  X  VALUE  AND  TWO  POINTS 
!  ON  THE  LINE  (ASSUMING  LINE  EXTENDS  INFINITELY) 

! 

DEF  FNFf(X.Xl, Yt,X2, Y2> 

IF  ABS<X2-X1X.0001  THEN  LI 
SI ope«< Y2-Y1 )/<X2-Xl) 

B*Y  t-$ 1 ope+Xl 
Ff *S I cpe*X+9 
RETURN  Ff 

Li:  Ff ■< Yl +Y2)^2 

RETURN  Ff 
FNEND 

!  FF  3 

!  FINDS  Y  VALUE  ON  BROKEN  LINE  OF  3,  GIVEN  X  VALUE 
!  AND  THE  3  POINTS 

!  (ASSUMING  ENDS  OF  LINE  EXTEND  INFINITELY) 

DEF  FNFf 3 < X , X 1  Y1,X2, Y2,X3, Y3.X4, Y4,X3,Y3) 

IF  X<  *X2  THEN  F?5«FNFf (X, Xl , Y1 , X2, Y2> 

IF  (X>X2)  AND  <X<*X3)  THEN  Ff 5*FNFf (X , X2, Y2 , X3, Y3 ) 
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3220 

IF  (X>X3)  AND  (X<»X4)  THEN  Ff 3»FNFf (X, X3, Y3 , 

,X4, Y4) 

3223 

IF  X>X4  THEN  Ff 3-FNFf (X, X4, Y4, X5, Y3> 

3230 

RETURN  Ff 3 

3233 

FNEND 

3240 

; 

FF3 

3243 

1 

FINDS  Y  VALUE  ON  BROKEN  LINE  OF  3  POINTS,  GIVEN 

X  VALUE 

3230 

! 

AND  THE  3  POINTS 

3233 

i 

(ASSUMING  ENDS  OF  LINE  EXTEND  INFINITELY) 

5260 

DEF  FNFf  3 < X, X 1 , Y I , X2 , Y2, X3 ,  Y3  ) 

3263 

IF  X<«X2  THEN  Ff3»FNFf (X, XI , Y1 , X2, Y2) 

3270 

IF  X>X2  THEN  Ff3-FNFf(X,X2,Y2,X3, Y3) 

3273 

RETURN  Ff3 

3230 

FNEND 

3233 

! 

FF4 

3290 

i 

FINDS  Y  VALUE  ON  BROKEN  LINE  OF  4  POINTS,  GIVEN 

X  VALUE 

3295 

j 

AND  THE  4  POINTS 

3300 

j 

(ASSUMING  ENDS  OF  LINE  EXTEND  INFINITELY) 

5303 

DEF  FNFf 4<X, XI ,Y1,X2,Y2,X3,Y3,X4,Y4) 

5310 

IF  X<-X2  THEN  Ff 4-FNFf (X, XI , Y1 , X2, Y2) 

3313 

IF  (X>X2>  AND  (X<-X3)  THEN  Ff 4-FNFf (X, X2, Y2, X3, Y3) 

3320 

IF  X>X3  THEN  Ff 4-FNFf (X, X3, Y3,X4, Y4) 

3323 

RETURN  Ff 4 

3330 

FPACK 

3333 

PACKS  THE  TWO-DIGIT  GROUP,  INSTANCE,  AND  NODE 

INTO  ONE 

3340 

SIX-DIGIT  NUMBER  OF  THE  FORM:  'GGIINN'. 

3343 

DEF  FNFpack (Node , INTEGER  Group,Inst> 

5330 

Fp*ck» 10000*Group+ 100* I ns t+Node 

3333 

RETURN  Fp*ck 

5360 

FNEND 

5365 

! 

FGROUP 

3370 

DEF  FHFgroup<Z) 

3373 

INTEGER  Temp 

5380 

T^mp-2/10009 

3383 

Fgroup*Temp 

3390 

RETURN  Fgroup 

3393 

FNEND 

5400 

! 

FINST 

3403 

DEF  FNF i nst  <Z> 

3410 

INTEGER  Temp, Tempi , Temp2 

3413 

Teapl«2/100 

3420 

T  emp2*2/ 1 0009 

3423 

Te«p«Templ-Te»p2* 100 

5430 

F 1 nst *Te»p 

3435 

RETURN  Finst 

3440 

FNEND 

3443 

! 

!  FXNODE 

3430 

DEF  FNFxnode<2) 

3433 

INTEGER  Temp, Tempi 

3460 

T  emp»2/ 1 00 

3463 

Temp l*2-Temp*100 

3470 

Fxnode*Temp 1 

3473 

RETURN  Fxnode 

3480 

FNEND 

3485 

!  FHOVND 

3490 

»  FIND  HIGHEST  (CLOSEST  TO  TOP)  OVERALL  NODE  ON 

PUSHDOWN 

3493 

!  TOP  OF  PUSHDOWN  LIST  IS  ASSUMED  TO  3E  A  GROUP  NODE. 

3300 

DEF  FNFhound<  Dummy ) 

3303 

OPTION  BASE  t 

3310 

COM  Cf  tn*niS,  Ssavg,  Spe*d<4>  ,  Mful  rt  <4) ,  Towspd, 

Gpdat 1(40 

,  Psh  l 

St C 100) , INTEGER  Idi sp, Icspd, Ptr 

3313 

INTEGER  Temp 

3320 

FOR  I-i  TO  100 

3323 

IF  Pshl st  <Ptr-I X 1S000  THEN  L20 

3330 

NEXT  : 

3333 

L 

20:  Temo»Psn i st (Pt r- I > 

3340 

Fhovnd*Temp 
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3343 

3330 

3335 

\ 

3360 

3363 

THEN 

i  LI 

3570 

3373 

3380 

Li: 

3383 

3390 

5393 

! 

5600 

3603 

3610 

3613 

3620 

Li: 

3623 

5630 

3633 

! 

3648 

3643 

3633 

3635 

5660 

L14 

3663 

3670 

3673 

! 

3680 

! 

3683 

| 

3690 

3693 

5700 

3703 

5710 

3713 

5720 

3723 

5738 

5733 

3740 

( 

3745 

j 

3730 

} 

3733 

t 

3760 

3763 

3770 

3773 

3780 

1 

3733 

i 

5790 

S793 

5800 

3803 

3910 

3313 

L20 

5320 

3823 

L30 

5830 

3833 

3840 

i 

5843 

! 

5830 

l 

5833 

£863 

5863 

RETURN  Fhovnd 
FNEND 
FSKTIM 

DEF  FNFskt i tt<M*st 4k , Not i on) 

IF  (Mastsk*!)  OR  <Mastsk*2)  OR  <Mast:5k*4)  OR  <Mastsk*6)  OR  <Mastsk*7) 

Fsk  t i m*  t 
RETURN  Fsk t i m 

Fsktim*FNFf2<M^tion<4>,0, 1, .3, 1, 1,2) 

RETURN  Fsk t \ m 
FNEND 
FMNTIM 

DEF  FNFmnt  i  sk  ,  Ltng) 

IF  <Mastsk-2)  OR  <M*stsk*4)  OR  <M*stsk*7)  THEN  LI 
Fflint  i  «*1 
RETURN  Ffantim 

F«nt1»-FNFf4<Limg,0, 1,100, 1,400,3, 1000,3) 

RETURN  F»nt i n 
FNEND 
FVZTIM 

DEF  FNFvzt 1»<Mastsk, Visdis, Vlsdtb) 

IF  Mastsk*  t 4  THEN  L14 
Fvzt i a*  l 
RETURN  Fvztim 

\  Fvzt1f*-V1sd1s<l,V1sdtb)+V1sd1s<2, Vi sdt b)+2*V 1 sdi s < 3 , Visdtb) 

RETURN  Fvztia 
FNEND 
FFOD 

CALCULATES  PROBABILITY  OF  DETECTION  USING  CURVES  FROM 
SAR  MANUAL,  FIGURE  3-63. 

DEF  FNFpodCCf, Nrsrch) 

IF  Nrsrch*0  THEN  Fpod-0 
IF  Nrsrch* 1  THEN  Fpod*FNFf 3<Cf , 0,0, 

IF  Nrsrch-2  THEN  Fpod*FNFf 3<Cf , 0,0, 

IF  Nrsrch-3  THEN  Fpod*FNFf 3<CF, 0,0, 

IF  Nrsrch-4  THEN  Fpod*FNFf 3 ( Cf , 0,0, 

IF  Nrsrch-5  THEN  Fp0d«FNFf 3<CP, 0,0, 

IF  FpodM  THEN  Fpod*l 
RETURN  Fpod 
FNEND 
FPDPTH 

DEPTH  CUMULATIVE  PROBABILITY  DISTRIBUTION 

FPDPTH <D) "PROBABILITY  THAT  DEPTH  <  D 
DEF  FNFpdpt h<Dphdt b, D#pth> 

IF  Dphdtb-1  THEN  Fpdpth-0 
RETURN  Fpdth 
FNEND 
FPRVTM 

FINDS  TIME  OF  THE  PREVIOUS  (CLOSEST  TO  TOP)  TASK  ON  PUSHDOWN  LIST. 

DEF  FNFprvt m< Du»»y ) 

FOR  1*1  TO  100 
IF  Ptr-I< *0  THEN  L30 
IF  T i a  I st  <Ptr- I ) >8  THEN  L20 
NEXT  I 

:  Fprvta»T  ialst(Ptr-I) 

RETURN  Fprvta 
5  Fprvta*0 

RETURN  Fprvta 
FNEND 
FSPSBU 

CALCULATES  PROBABILITY  AND  TIME  FOR  SEARCH 
FOR  PEOPLE  AND  SEARCH  FOR  BIST.  UNIT  TASKS 

SUB  Fsp#du<Sp**d< *  ) , Su, A, Nmax ,Cf,Tmax,Ps,Pf,Ts,Tf) 

OPTION  BASE  t 
DIM  Alpha<3) 


6. . 33. 1. 1. .33. 1.3. .93. 1.3. .97) 

39. . 6. .7. .33. 1. .96. 1.3. .99) 

4. . 76. .6. .9. .99. .99) 

4. . 83. .6. .93. .3. 1) 

4. . 9. .3. .96. .73. 1) 


•  2 1 ,  •  3 ,  i 
.21, .6,. 
.22, .7, , 
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Ls99 : 


i 


DATA  1,09,2. 11,3.31,4.37,3, 16 
MAT  READ  Alpha. 

IF  (Sw<*0)  OR  <A<30)  OR  <Nm-*x<=9)  OR  OCf<*0)  OR  'ITto.ax<*0)  THEN  Ls99 

GOTO  Ls300 
Ps-9 
Pf -1 
Ts-0 
Tf»0 
SUBEXIT 
Nf  u 1 1 s*Nmax 
Sf r *c»0 

TEST  IF  NUMBER  OF  FULL  SEARCHES  TAKES  TOO  LONG 
LS301J  Tf-0 

FOR  1-1  TO  Nf u 1 Is 

Tnext*Cf *A*A1 ph*< I >/<Spe*d<3)*Sw) 

Tf *Tf +Tn*xt 
IF  Tf >T»ax  THEN  Ls32 
NEXT  I 
GOTO  Ls33 
EXCEEDS  TMAX 
Nful  1s*I-l 
Tf  ull s»Tf -Tnext 
T1 *st *Tra*x-Tf ul 1 s 
Sf r *c-Tl Ast/Tnext 
Tf-Tw*x 

!  FINDS  PS  AND  PF 


!  TF 
Ls32: 


Ls33 


5879 
5875 
5389 
5835 
3890 
3895 
5909 
5905 
3910 

5915  L*309: 

5929 
5923 

5930 
3933 
5940 
3945 
3950 
5953 
3960 
5965 
3970 
3973 
3988 
5985 
5990 
5993 
6000 
6903 
6010 
6013 
6020 
6025 
6030 
6033 
6040 
6043 
6050 
6055 

6060  Ls92: 
6063 

6079 
6073 

6080 
6085 
6090 
6093 

6108  Ls93: 
6183 
6118 
6115 
6120 
6125 
6130 
6133 
6140 
6143 
6150 


SEARCH 


Podn«FNFpod< Cf , Nful  Is) 

Podnl*FNFpod<Cf, Nful Ts+l) 

Podl -Sf rac*<Podni-Podn> 

Ps-Podn+Podl 
Pf *l~Ps 

!  CALCULATE  TIME  OF  SUCCESSFUL 

XSUM-0 

T«bef j»0 

FOR  1*1  TO  Nful Is 

Pod j-FNFpod<Cf , I )-FNFpod<Cf , I-l) 

IF  I<*1  THEN  Ls92 
Trabef J-Tmbef j*Timj 
T;.  *j-Cf*A*Al  ph*<  I  )/<Spe#d<3)*Su) 

Autm j*Ti  ra  j/2 
Tot t» j*Avtm j+Tmbef j 
Xsu»*Xsu»+Tot  t m j*Pod j 
NEXT  I 

IF  Sfr*c*0  THEN  Ls95 
Tot t ml "Tful 1  s>TI %st/2 
Xsum-Xsum+Tot  t  nt  1  *Podl 
T  s-Xsum^Ps 
SUBEND 
!  FLKDAT 
!  LINK  DATA 

1  FOR  A  GROUP  LINK:  RETURNS  PROBABILITY,  TIME,  FUEL  USED. 

SUB  FI kd^t < INTEGER  Group , I nst , REAL  Node 1 ,  Node2 ,  Lk prob , Lk t i me , Lk f u* 1 ) 
OPTION  BASE  1 

SHORT  Gp ipb<7, 7) , Cp2pb < 3 , 3 ) , Gp3pb < 4 , 4 ) , Gp4pb < 3 , 3 ) , Gp3pb C 6, 6 ) 

SHORT  Cp6pb<5, 3) , Gp7pb<3, 3) , Gp8pb(3, 3) , Gp9pb<4, 4) , Gpl0pb<4, 4) 

SHORT  GpllpbC2,2),Gpl2pb<3,3),Gpl3pb<2,2),Gpl4pb<2,2),Gpl3pb<4,4) 
SHORT  Gpl6pb<3,3),Gpl7pbC4,4),Gpl8pb<6,6),Gp90pb<9,9),Gp93pbC9,9) 

COM  CftmaraS,  Ssaug,  Spe*d<4)  ,  Mful  rt  <4>  ,  Touspd,  Cpdat  l  <40, 2)  ,  Gpdat2<40,  1 


6153 

3) , Psh 1 st  < 103) , INTEGER  Idisp, Idspd,Ptr 
6160  !  GET  ROU  OF  GROUP  AND  INSTANCE 

6163  Groupl*Group 

5170  IF  Group*90  THEN  Groupl*l0 

5173  IF  Croup-9'3  THEN  Groupl«t3 

6180  FOR  Irow=*l  TO  100 

5135  IF  <  Gpdat  1  ( I  row ,  1  )  -Group  1 )  AND 

6190  NEXT  Irow 


CGpdAt 1 < Irou, 2)* rnst )  THEN  L203 
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6195  ! 

5200  L200: 
5205 
5210 
5215 
5220 
L 1  7 ,  L 1 8 
5225  ! 

5230  !  1 

5235  ! 

6240  LIS 
0. 

6245 

6250 

6255 

6260 

6265 

6270 

6275 

6288 

6285 

6290 

6295  LI  12* 

6300 

6305 

6310 

6315 

6320  Li  13: 

6325 

6330 

6335 

6340 

6345  LI 15: 

6350 

6355 

6368 

6365 

6370  LI  16: 

6375 

6330 

6335 

6390 

6395  L134: 

6460 

6435 

6410 

6415 

6420  L142: 

6425 

6430 

6435 

6440 

6445  L167: 

6458 

6455 

6460 

6465 

6470  L172: 
6475 
6430 
6485 

6490  L199: 
6495  ! 

6500  !  2 

6505  ! 

6510  L2: 


Lk  t i m**0 
Lk  t'u*  1  =0 

IF  Groupa90  THEN  L90 
IF  Group*93  THEN  L93 

ON  Group  GOTO  LI , L2, L3, L4, L5, L6, L7, L3, L9, L10, Lll , L12, L13, L14, L15, L16 


RSSIST  GROUP 

•  ,  0  •  ,  0  • 
,0,, 1. 

un  i  n  «g  .  ,  i  .  ,  <o  .  ,  v .  ,  o.  ,  u  .  ,  o  . 

RESTORE  LI 

MAT  READ  Gplpb 

Gptpb< 1 , 2)*Gpd*t2< I row, 2) 

Gplpb< 1 , 3)*Gpd*t 2< I row, 1 ) 

Gplpb< 1 , 5) »Gpdai. 2< I  row, 3) 

Gplpb<  1 , 6>*Gpd<at  2<  I  row,  4) 

Lkprob*Gplpb<Nod*i , Nod*2) 

IF  Lkprob»0  THEN  SUBEXIT 
IF  (NodflOl)  OR  <Nod*2<  >2)  THEN  LI  13 
T4*Gpd*t2< I row, 8) 

Lkt i »*«T4*FNFskt i m< 1 , Mot  ion) 

Lkfu*1 «Lkt im**Mfutrt  <4) 

SUBEXIT  * 

IF  (HodtlOl)  OR  <Nod*2<>3)  THEN  L115 
T l*Gpd*t2( I row, 5) 

Lkt  i  »**T l*FNFsk t  i  i»<2,  Mot  i  on)*FHFmnt  im<2,L*n<g) 

Lkfu#l »Lkt i m»*Mf u 1 rt (4) 

SUBEXIT 

IF  (Nodti< >1 >  OR  <Nod*2<  >5 )  THEN  L 1 1 6 
T3*Gpd*t2< Irow, 9) 

Lkt i mt«T5*FNFskt i m<4, Mot i on) *FNFmnt i m < 4 , L*ng ) 

Lkfu« 1 *Lkt i »e*Mful rt  <4) 

SUBEXIT 

IF  (NodflOl)  OR  <Node2<  >6)  THEN  L134 
T6*Gpd*t2< Irow,  10) 

Lkt  i  o»«»T6*FNF  jk  t  i  m<7,  Mot  i  on)*FNFmnt  im<7,L*ng) 

Lkf  u# 1 »Lkt i »#*Mf ul rt  <4) 

SUBEXIT 

IF  <Nod*l<  >3)  OR  <Nod*2<  >4)  THEN  L142 
T2*Gpd*t  2< Irow, 6) 

Lk  t  i  n»*»T2 

Lkfuel *Lkt i«**Mfulrt  <4) 

SUBEXIT 

IF  < Nod* 1 <  >4 )  OR  <Node2<  >2)  THEN  L167 
T3»Gpda.t2<  Irow,  7) 

Lkt i m#*T3*FNFsk t i m<2, Mot i on)+FNFmnt im<2,L*ng) 

Lkfuc  1  »Lkt  ime+Mt'ul  rt  <4) 

SUBEXIT 

IF  <Nod*l<>6)  OR  <  Nod*2<  >7 )  THEN  L172 
T7»Gpd*t2< Irow, 11) 

Lkt i»*«T7 

Lkf  U4r1  *Lkt  i»#*Mfulrt<4) 

SUBEXIT 

IF  CNodel <  >7)  OR  <Nod*2<>2)  THEN  L199 
T9»Gpdat2< Irow, 12) 

Lkt  i  »*«T3*FNr sk t  i  n»<7 ,  Mot  i  on)*FNFmnt  i m<  7 , Lt ng) 

Lk  t'u#  1  *Lk  t  i  1  rt  <  4  ) 

SUBEXIT 

ESCORT  GROUP 

ORTA  3. ,91. ,92. ,3. ,0. ,3. ,3.  , 1.  ,3. 


DATA  0. ,92. ,91. ,0. ,93. , 94. ,0. , 0. , 0. ,0. ,0. ,0. ,0. ,0. ,3. ,0. ,3. , 1 
DATA  0. , 1. ,0. ,0. i 0 • >0. ,  0  •  >0*  » 1 • , 0 • >0*  >0*  >0* i 0 • >0*  j  0 • >0* , 0 • ,  0  • 
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6313 

6320 

6323 

6330 

6335 

6340 

6343 

6330 

6355 

6360 

6363 

6370 

6373 

6580 

6383 

6390 

6393 

6600 

6603 

6610 

6615 

6620 

6625 

6630 

6633 

6640 

6643 

6630 

6655 

6660 

6663 

6670 

6673 

6680 

6685 

6690 

6695 

6703 

6703 

6710 

6713 

6720 

6723 

6730 

6733 

6740 

6743 

6730 

6733 

6760 

6763 

6770 

6773 

6780 

6783 

6790 

6793 

6808 

6803 

6810 

5813 

6820 

6323 

5830 

6833 

6340 


RESTORE  L2 

MAT  READ  Gp2pb 

Gp2pb< 1 , 2)*Gpdat  2< Irow,  1 ) 

Gp2pb< 1 , 3)*Gpd*t2< I row, 2) 

Lkprob-Gp2pb<Nod* 1 , Nod*2) 

IF  Lkprob-0  THEN  SUBEXIT 
L212:  IF  (NodelOl)  OR  <Nod*2<>2)  THEN  L213 
Di-Gpd*t2< I row, 3) 

Vl-Gpd*t 2< I row, 4) 

Lkt i»#«01/Vl 

Lkfu*l  -Lkt  i  rt  (3> 

SUBEXIT 

L213!  IF  (NodtiOl)  OR  <Nod*2<>3>  THEN  L299 
D2»Gpd*t 2< Irow, 3) 

Lktin#-D2'Sp*«d<2) 

Lk  f  u«  I  -Lk  t  \  m«*Mf  ul  rt  <2) 

L299:  SUBEXIT 

!  3.  FIGHT  FIRE  GROUP 

L3t  DATA  3  • ,92« ,91* , 0* ,0* ,0* ,0* , 3 ■ , 0 • , 0 • ,0* , 1 • , 0 • , 1 • ,0* ,0* 
RESTORE  L3 
MAT  READ  Gp3pb 
Gp3pb< 1 , 2>*Gpdat2< Irow, 2> 

Gp3pb< 1 , 3>-Gpd*t2< Irow,  1) 

Lk pr ob*Gp3pb < Nod* 1 , Nod*2) 

IF  Lkprob-0  THEN  SUBEXIT 
IF  (NodtlOl)  OR  <Nod*2<  >2)  THEN  L313 
T4*Gpd*t 2<  Irow,  6) 

Lkt  l  «*-T4*FNFsk t  i m<7, Mot i  on)*FNFmnt  im<7,L#ng> 

Lk  f u* 1  -Lk  t  i  »**rtf  u  1  rt  <  4  > 

SUBEXIT 

L3135  IF  <Nod*l<  >1 >  OR  <Nod*2<  >3)  THEN  L334 
T 1 -Gpd*t 2  < I row , 3  > 

Lk  t i ®*-Tl *FNFsk 1 i m<2, Mot i on>*FNFmnt i m<  2 , L*ng> 

Lkfu*1  -Lkt  i  a»*+Mf  ul  rt  <4> 

SUBEXIT 

L334J  IF  <Nod*l <  >3)  OR  <Nod*2<>4)  THEN  L342 
T2-Gpd*t  2< Irow, 4> 

Lkt 1**«TZ 

Lkfu*  !  -Lkt  i  ®**Mf  ul  rt  <4) 

SUBEXIT 

L342:  IF  <Nod*t<  >4)  OR  <Nod*2<>2>  THEN  L399 
T3*Gpd*t2< Irow, 3) 

Lkt i •*«T3*FNFsk t i m<2, Mot i on) *FNFmnt  im<2,L#ng) 

Lk  f  u* 1 -Lk  t i m**Mf u 1 rt  <  4 ) 

L399:  SUBEXIT 

i 

!  4.  IDENTIFY  GROUP 

i 

L4:  DATA  0. , 91* , 92« , 0. ,0' ,a. ,8. , 1. ,0. 

RESTORE  L4 

MAT  READ  Gp4pb 

Gp4pb< 1 , 2 > -God At 2 < Irow, 1 ) 

Gp4pb< 1 , 3) -CpdAt 2< Irow,  2) 

Lkprob*Gp4pb<Nod*l , Nod*2) 

IF  Lkprob-0  THEN  SUBEXIT 
L412:  IF  \Nod*i<  >1 )  OR  < Nod*2< >2 )  THEN  L413 
Tshl pl-Gpd4t 2< Irow,  3) 

#  Dsthi  pl-Gpd4t  2<  Irow,  4) 

Nshi pl»Gpd*t 2< Irow, 5) 

Idt  i  »*«N*hi  p  1  *Tshi  pl*FNFvzt  im<14,Visdii,V1  sdt  b  > 

Travel *<Nshi pl-l)*0shi pi/Sp**d<2) 

Lkt  t  n*« Idt i »*+Travf I 
-kfu*l -Lkt i m**Hful rt  <2) 

SUBEXIT 
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6843 
<5339 
63  33 

6369 
6363 

6370 
6373 
6339 
6333 
6399 
6393 
6990 
6903 
6910 
6913 
6920 
6923 
6930 
6933 
6940 
6943 
6930 
6933 
6960 
6963 
6970 
6973 
6930 
6983 
6990 
6993 
7000 
7003 
7010 
7013 
7020 
7023 
7030 
7033 
7040 
7043 
7030 
7033 
7060 
7063 
7070 
7073 
7030 
7983 
7999 
7993 
7100 
7103 
7110 
7113 
7120 
7123 
7130 
7133 
7140 
7143 
7130 
7133 
7160 
7163 
7 170 


L413:  IF  <Nod*l<>l>  OF  <Nod*2<>3)  THEN  L499 
T2*Gpdat2<.  Irou,  6) 

Lk  t 1  m*»T2*FNF-s k  t  i  m<  1 4,  Mot  i  on  >  *FNF*;rt  im(  1 4,  V  \  sdi  3 ,  V  i  sdt  o 
Lk f  u#  1  *Lk  1 i  m**Mf  u  I'rt  <2> 

L499 I  SUBEXIT 

!  3 .  INSPECT  GROUP 
! 

L5 :  DATA  0 . , 0 . , 9 1 . , 0 . , 92 . , 0 . , 0 . , 0 . , 0 . , 0 . , 0 . , 0 . , 0 . , 0 . , a . , 1 • , 0 . , O . 

DATA  0# | 1* , 0 . ,  0  •  >0* , 0 • i 0« »0»  j  0 • ,  0  •  *  0 • , 1 • f 0 • y 1*  >0*  ,  0  •  ,  0  • i 0 • 
RESTORE  L3 
MAT  READ  GpSpb 
Gp3pb< 1, 3) »Gpd At 2<Irow, 1) 

Gp3pb< 1 ,  3)*CpdAt2< I row,  2) 

Lkprob*Gp5pb<Nod*l , Nod*2) 

IF  Lkprob*0  THEN  SUBEXIT 
L313:  IF  (NodflOl)  OR  <Nod*2<>3>  THEN  L513 
T1 *GpdAt2< I row,  3) 

Lkt  t m#*Tl *FNFsk t  i  «<7,Mot  i  on)*FNFmnt  im<7,  L#ng) 

Lkfucl »Lkt i «**Mful rt  <4) 

SU2EXIT 

L313:  IF  (NodtlOl)  OR  <Node2<>3>  THEN  L334 
T4«Gpd*t 2< I row,  6) 

Lkt i »**T4*FNFskt i m<2, Mot i on)*FNFmnt i ra<2, Leng) 

Lkf u*1 »Lkt i »€*Mf u 1 rt  < 4) 

SUBEXIT 

L334:  IF  <Nod«l<  >3)  OR  <Nod«2<>4)  THEN  L342 
T2»CpcUt2( I row,  4) 

Lkt 1 »«*T2 

Lkfu*l  »Lk t i m«*Mful rt  <4) 

SUBEXIT 

L342:  IF  <Nodt 1 <  >4)  OR  <Nod*2<>2>  THEN  L336 
T3*Gpdat 2< I row,  3) 

Lkt i m«*T3*FNFsk  t i m<  7, Mot i on>+FNFmnt i m<  7, L*ng) 

Lkfucl *Lkt 1 m**Mfulrt  <4) 

SUBEXIT 

L336:  IF  <Nod* 1 <  >3)  OR  <Nod*2<>6>  THEN  L362 
T3*Gpdat  2< I row,  7) 

Lkt i n»#«T3 

Lk  fu*l »Lk t i m#*Mfu1 rt  <4> 

SUBEXIT 

L362:  TF  <Nod*l <  >6)  OR  <Nod«2<>2>  THEN  L599 
T 6*Gpdat  2< I  row, 8> 

Lkt i »e*TS*FNFsk t im<2,Motion)*FNFmntim<2,L*ng> 

Lkf u*l *Lkt 1 »«*Mf ul rt  <4> 

L399 l  SUBEXIT 

i  ► 

!  6.  MONITOR  GROUP 

I 

L6:  DATA  0. ,91, ,92. ,93. ,94. ,0. ,0. ,0. ,0. , 0. , 0. , 1. ,0. , 0. ,0. 

DATA  0. , 1. ,0. ,0. ,0. ,0. , 1. ,0. ,0. ,0. 

RESTORE  L6 

MAT  READ  Gp6pb 

Gp6pb< i , 2)*Gpd*t2< I row, 1 ) 

Gp6pb< 1 , 3>*GpdAt2< I row, 2) 

Gp6pb< 1 , 4)*Gpdit2C I row, 3) 

Gp6pb< 1 , 5)*GpdAt 2< I row, 4) 

Lkprob*Gp6po<Nod«l , Nod*2> 

IF  Lkprob*8  THEN  SUBEXIT 
L612J  IF  (ModtlOl)  OR  <Nod*2<>2>  THEN  L613 
Tl»Gpdat2< I row, 5> 

Lkt i ***T1 

Lkfu* 1 *Lkt i ra*+Mful rt  <4> 

SUBEXIT 

L6132  IF  (NodtlOl)  OR  <Nod*2<>3>  THEN  L614 
T2*Gpd*t2< Irow,  6) 
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7173 

7130 

7133 

7190 

7193 

7200 

7203 

7210 

7213 

7220 

7225 

7230 

7233 

7240 

7245 

7230 

7233 

7260 

7263 

7270 

7273 

7288 

7285 

7290 

7293 

7300 

7383 

7310 

7313 

7320 

7323 

7330 

7335 

7348 

7343 

7330 

7333 

7368 

7363 

7370 

7373 

7380 

7383 

7390 

7393 

7408 

7403 

7410 

7413 

7^20 

7423 

7430 

7433 

7440 

7445 

7430 

7433 

7460 

7463 

7*70 

7473 

7480 

7483 

7480 

7495 

7300 


Lkt i «€«T2 

Lkf  u*  1  »Lk  tifn#*Mfulrt<4) 

SUBEXIT 

L614:  IF  (HodtlOl)  OR  <Nod*2<>4)  THEN  L613 
T3*Gpd*t  2<Irou,7) 

Lkt i m#*T3 

Lkfu«l*Lkt  im**Mfulrt  <4> 

SUBEXIT 

L613:  IF  (NodflOi)  OR  <Nod*2<>5>  THEN  L699 
T4»Gpd*t 2< I row,  3 > 

Lkt i m**T4 

Lkfu*l«Lkt 1 m**MfuJrt <4> 

L699:  SUBEXIT 
! 

!  7.  PATROL  GROUP 

! 

L7!  DATA  0.,91.,92.,0.,0.,0.,0.,1.,0. 

RESTORE  L7 

WAT  READ  Gp7pb 

Gp7pbCl , 2) «GpdAt 2< I row, 1 > 

Gp7pb< 1 , 3)»Gpd*t2< I row, 2) 

LkproO*Gp7pb<Nod*l , Nod*2> 

IF  Lkprob-0  THEN  SUBEXIT 
L712:  IF  (NodflOi)  OR  <Ncd*2<>2>  THEN  L713 
Dl»Gpdat2< I row, 3) 

Vl»Gpd*t2< Irow, 4) 

Lkt 1»#«D1/V1 

Lk fuel -Lkt i *#*Wf ul rt  <3> 

SUBEXIT 

L713!  IF  (NodflOi)  OR  <Nodt2<>3)  THEN  L799 
D2«Gpd*t 2  < Irow,  5) 

Lkt  i  »#-D2/'Sp*#d<2) 

Lkfutl  “Lkt  i  u  1  rt  <25 

L799 :  SUBEXIT 
! 

I  8.  RESCUE  GROUP 

i 

L8:  DATA  0. ,91. ,92. ,8. ,3. ,0. ,0. , 1. ,3. 

RESTORE  L3 

MAT  READ  Gp8pb 

GpSpb< 1 , 2)*Gpd*t 2< Irow,  1 > 

Gp8pb<  1 , 3>a*Gpd«.t2<  Irow,  2 > 

Lkprob»Gp8pb<Nod*l , Nod#2> 

IF  Lkprob*0  THEN  SUBEXIT 
L312:  IF  (NodflOi)  OR  <Nod«2<>2)  THEN  L313 
Tl*Gpd*t 2< Irow, 3) 

Lk  t i m*»Tl *FNFsk  tim<4,Wotion)*FNFmnt im<4,L*ng) 
Lkfu#l »Lkt i 1 rt  <  4) 

SUBEXIT 

L813:  IF  (NodflOi)  OR  <Nod*2<>3>  THEN  L399 
T2«Gpd*t 2< Irow, 4) 

•  Lk  t  i m*«T2*FNFsk t i ra<4, Mot  t on>*FNFmnt i  m<4, L*ng) 
Lk  f u# 1  *Lk  1 1  u  1  rt  <  4) 

L399:  SUBEXIT 

I 

!  9.  RESCUE  RETURN  GROUP 

; 

L9:  DATA  a.,91.,92.,93.,9.,0.,0.,0.,0.,1.,0.,0.,0. 

RESTORE  L9 
WAT  READ  Gp9pb 
Gp9po<  1 , 2>:cGpdat  2<  Irow,  1 ) 

Gp9pb< 1 f  3)*Gpdai2C Irow, 2) 

Gp9pb< 1 , 4 )*Gpd-at 2< Irow, 3) 

LkproO“Gp9pb<  Node  1 , Nod#2) 

IF  LkprcO-0  THEN  SUBEXIT 
L912:  IF  (NodflOi)  OR  (Nod»2<>2)  THEN  L913 
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7503 

7510 

7513 

7520 

7525  L913: 

7330 

7533 

7540 

7545 

7550 

7555  L914: 
7560 
7563 
7570 


7600  Lie: 
7605 


D l*Gpdat2< Irou,  4) 

Lk l i m#»Dl/Touspd 
Lk  f u# 1 =  Lk  t i m#*Mf u l rt <3) 

SUBEXIT 

IF  <Nod#l<>!>  OR  <  Nod#2<  >3>  THEN  L914 
D2aGpd*t2< I row,  5) 

V2*Gpd*t2< Irow, 6) 

Lk  1 1  f»#*D2/V2 
Lkfu#l *Lkt i m**MfuJrt  <3) 

SUBEXIT 

IF  (NodtlOD  OR  <Nod*2<>4>  THEN  L999 
D3-Gpd*t2< Irow,  7) 

Lk  t i m#«D3/Sp#»d<2> 

Lkfuel  *Lkt  i  m#*Mf ul  rt  <2) 

7575  L999:  SUBEXIT 
7580  ! 

7385  i  10.  SAR  SERRCH  GROUP 

7390  !  SUCCESS 

BATA  0. ,0. ,91. , 92. ,0. ,0. ,0. ,0. ,8. ,913. ,0. , 0. ,0. ,925. ,0. ,0. 
RESTORE  Lie 
MPT  READ  Gpl0pb 
Gpl0pb< 1 , 3>*Gpd*t2< Irow, 1 ) 

Gpl0pb<l , 4>*Gpd*t2< Irow, 2> 

Sul*Cpda.t  2<  Irow,  3  ) 

Al*Gpdat2<  Irow,  4 > 

Ns# l*Gpda.t  2<  I  row,  5) 

Cri-Gpd*t2< Irow, 6) 

Tf#*xi«Gpd*t2<  Irow, 7) 

Su2*Gpdat2< Irow, 8) 

A2*Gpd*t  2<  Irow,  9) 

Ns#*r2»Gpdat2< Irow, 10) 

Cf2*Gpdat2< Irow, 1 1 ) 

Tm*x2*Gpd*t 2 < Irow, 12) 

CALL  Fsp#du<Sp##d<*>,Swl,Al,Ns#*rl,Cfl,Tmaxi,?sl,Pfi,Tsl,Tfl> 

CALL  Fsp*du<Sp«#d<*> , Su2, A2, Ms# at 2, Cf2, Tm*x2, Ps2 9 Pf 2, Ts2, Tf 2 > 
Gpl0pb<3, 2)*Ps 1 
Gpl0pb<4,2>»Ps2 
Lkprob*Gpl 0pb  <Nod#l , Nod#2> 

IF  Lkprob«0  THEN  SUBEXIT 
7705  L1032:  IF  <Nod#i<>3>  OR  <Nod#2<>2>  THEN  L1042 
7710  Lk t i m#»Tsl 

7713  Lkfu# 1 *Lkt 1 m#*Mful rt <3> 

7720  SUBEXIT 

7725  L1042I  IF  <Nod#l<>4)  OR  <Nod#2<>2>  THEN  L1099 

7730  Lktim#«Ts2 

7733  Lkfu#l »Lkt i rt <3) 

7740  L1099:  SUBEXIT 
7743  ! 

7730  !  11.  SEARCH  FLEET  GROUP 

7755  ! 

7760  Li  1 :  DATA  0., 1. ,0. ,0. 

7765  RESTORE  HI 

7770  MAT  READ  Gpilpb 

7773  Lk prob«Gp l lpb< Nod# 1 , Mod#2> 

7780  IF  Lkprob*0  THEN  SUBEXIT 

7785  LU12:  IF  <Nod«l<>l)  OR  <Nod#2<>2>  THEN  L1199 

7790  Dl»Gpd*t2< Irow, 1 > 

7793  Lk t i m*«Dl/Sp*#d<2> 

7900  Lkfu#l *Lk t i m#*Mfut rt (20 

7305  LU99:  SUBEXIT 
7910 

12.  SEIZE  GROUP 


7610 

7615 

7620 

7625 

7630 

7635 

7640 

7643 

7630 

7655 

7660 

7665 

7670 

7673 

7680 

7685 

7690 

7693 

7700 


7815 

7829 
7823  L12: 

7830 


DATA  0. ,0. , 1 
RESTORE  L12 


,,8.,0*,0.,3.,l«y8« 
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7833 

7348 

7343 

7333 

7833 

7360 

7365 

7373 

7373 

7883 

7383 

7833 

7893 

7930 

7903 

7910 

7913 

7920 

7923 

7930 

7933 

7940 

7943 

7930 

7933 

7960 

7963 

7970 

7973 

7980 

7983 

7990 

7993 

3600 

8003 

8810 

8015 

8020 

8023 

8030 

9033 

3040 

3043 

8050 

3033 

3060 

8063 

8070 

8073 

8330 

8083 

8090 

3093 

3100 

8103 

8110 

8113 

3120 

9123 

8130 

9133 

9140 

3143 

8130 

3133 

8160 


MAT  READ  Gpl2pb 

Lk pr ob -Gp l 2pb< Model , Node2> 

IF  Lkprob-0  THEN  SUBEXIT 
L1213:  IF  (NodtlOl)  OR  <Hod*2<>3?  THEN  L1232 
T 1-Gpdat 2< I row,  1 ;> 

Lkt i m*-Tl 

Lkf  u*  1  -Lkt  i  fn«*Mf  u  I  rt  <  4) 

SUBEXIT 

L 12321  IF  <Nod*l<  >3)  OR  (Nod*2<>2>  THEN  L1299 
D2*Gpd*t 2< I row, 2> 

Lkt im#-D2/Sp*«d<2> 

Lkfu*l -Lkt i m#*Mf u 1 rt <2> 

LI  299:  SUBEXIT 

!  13.  SENSOR  SEARCH  CROUP 

!  THIS  GROUP  MUST  ALWAYS  FOLLOW  A  STEAM  GROUP. 

I  SUCCESS 

j 

L13:  DATA  0. ,95. ,0. ,0. 

RESTORE  L13 
MAT  READ  Gpl3pb 
Su-Gpd*t2< Irow, 1 ) 

E*Gpdat2< Irow, 2) 

Vt*r»Gpd*t 2< Irow, 3) 

Tm*x»Gpd*t 2< Irow, 4) 

Tbef -FNFprwt «<0> 

GOSUB  Fsshp 
Gpl3pb<l,2)»Ps 
Lkprob*Gpl3pb<Nod«l , Nod*2> 

IF  Lkprob-0  THEN  SUBEXIT 
Lkt i «#-Ts 

Lk  fuel  -Lkt  i  mc*Mf  ul  rt  (2) 

L1399:  SUBEXIT 

I 

!  14.  STANDBY  GROUP 
! 

L14:  DATA  0. , 1. ,0. ,0. 

RESTORE  L 1 4 
MAT  READ  Gpl4pb 
Lkprob-Gpl4pbCNod€l , Nod#2> 

IF  Lkprob-0  THEN  SUBEXIT 
L1412:  IF  (NodtlOl)  OR  <Nod«2<>2)  THEN  L1499 

T 1-Gpd*t2< Irow,  1 ) 

Lkt 1 »€-Tl 

Lkf uel -Lkt i ««+Mf u 1 rt  <4) 

L 1 499:  SUBEXIT 

j 

*  13.  STEAM  GROUP 

» 

L13:  DATA  0. , 91. , 92. , 93. ,0. ,0. ,a. ,3. ,0. , 1. ,0. , 0. 

RESTORE  L13 
MAT  READ  Gpl3pb 
Gpl5pb< i , 2>-Gpdat2C Irow, i) 

Gpl3pb< 1 , 3>-Gpd*t 2< Irow,  2) 

Gpl3pb< 1 , 4>-Gpd*t2< Irow,  3> 
Lkprob*Gpl3pb<Nod*l , Nod*2) 

IF  Lkprob-0  THEN  SUBEXIT 
L13I2:  IF  (NodtlOl)  OR  <Nod*2<>2>  THEN  L1313 
Dl»Cpd*t2< Irow,  4) 

Lx  t  i  •*-Dl/'Sp#«d<2) 

Lk  fu* 1 -Lkt i n**Mf u 1 rt  <2> 

SUBEXIT 

L1313S  TF  (NootKM)  OR  (Nod#2<>3)  THEN  L1314 
D2*Gpd*t2< Irow,  3) 

Lkt  i  m*-D2/'Sp**d<  1 ; 

Lk  Fu#  1  -Lkt  i  rr.**Mful  rt  <  1 ) 


0., 


,0. ,0. 
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8163 

3170 

8173 

3180 

8183 

3190 

8195 

3200 

3203 

3210 

3213 

3223 

3223 

8230 

8235 

8240 

3243 

3250 

3233 

8260 

3263 

3270 

3273 

3280 

3283 

8290 

8295 

8308 

8303 

8310 

8313 

8320 

3323 

8330 

8333 

8340 

3343 

8330 

3333 

8360 

8363 

8370 

8373 

8380 

8333 

8390 

8393 

3400 

8403 

3410 

8413 

3420 

8423 

3430 

3433 

3440 

3443 

3450 

3433 

3460 

8463 

9470 

8473 

9430 

3433 

8490 


SUBEXIT 

L1314:  IF  (Notion  OR  <Nod*2<>4>  THEN  L 1 399 
D3-Gpdat  2< I row,  6> 

Lkt  i  r#*-D3/Sp«*d<  i  > 

Lief u*  i  -Lkt  i  m**Mf u I  rt  <  1 ) 

LI  399!  SUBEXIT 

!  * 

!  16.  TRANSFER  EQUIPMENT  GROUP 
i 

L16:  DATA  0. ,91. ,92. ,0. ,0. ,3. ,0. , 1. ,0. 

RESTORE  L 1 6 

MAT  READ  Gpl6pb 

Gpl6pb< 1 , 2>*Gpdat2( I row,  1  > 

Gpl6pb< 1 , 3)«Gpdat2< I row, 2> 

Lkprob-Gpl6pb<Nod*l , Nod#2) 

IF  Lkprob-0  THEN  SUBEXIT 
L1612:  IF  (NodtiOl)  OR  <Hod*2<>2)  THEN  L1613 

Tl-Gpdat2< I row, 3) 

Lkt  i  »*-Tl*FNFskt  f  m<7, Mot i  on)*FNFmr>t  i  m<7,  Leng) 

Lkfuel  -Lkt  i  rte-*Mf  ul  rt  <4> 

SUBEXIT 

L1613:  IF  (NodtlOl)  OR  <Nod#2<>3)  THEN  L1699 

T2*Gpd*t2< Irow,  4) 

Lkt  f  ™*-T2*FNFsk  ti«<7,Motiort)*FNFmntina<7JL*ng) 

Lkfucl -Lkt i *«*Mfui rt  <4) 

L1699:  SUBEXIT 

! 

I  17.  TRANSPORT  EQUIPMENT  GROUP 
} 

LI 7:  DATA  0.,92.,91.,0.,0.,0.,0.,0.,0.,0.,0.,1.,0.,1.,0.,0. 

RESTORE  LI 7 

MAT  READ  Gpl7pb 

Gpl7pb< 1 f  2)»Gpdat 2< I row,  2) 

Gpl7pb< 1,3>-Gpdat2< Irow,  1  > 

Lkprob«Gpi7pb<Nod*l , Node2> 

IF  Lkprob-0  THEN  SUBEXIT 
L1712:  IF  (NodtlOi)  OR  <Nod#2<>2>  THEN  L1713 
D4-Gpdat2< Irow, 8> 

A4-Gpdat2< Irow, 9> 

W4-Cpdat2< Irow, 10) 

Lk  t  i  ■#»D4/'$p**d<2) 

Lkfu*1 -Lkt i «**Mful rt  <2) 

SUBEXIT 

L1713I  IF  (NodtiOl)  OR  <Nod»2<>3)  THEN  L1734 
Tl»Gpd*t2< Irow, 3) 

LktTme-Tl*FNFsktim<7,Motion)*FNFmntim<?,L#ng) 

Lk  f u* 1 -Lk  t i 1 rt  <  4 ) 

SUBEXIT 

LI  734 ;  IF  <Nodel<  >3)  OR  <Nod*2<>4>  THEN  L1742 
D2*Gpdat 2< Irow, 4) 

A2«Gpdat2< Irow,  5) 

W2*Gpdat 2< Irow,  6) 

Lkti »#-D2/Sp*«d<2) 

Lk  f  u*  1  -Lk  t  i  u  1 1* t  <  2 ) 

SUBEXIT 

L 1742:  IF  <Nod*l<>4)  OR  <Nod*2<>2>  THEN  L1799 
T3-Gpd*t2< Irow,  7) 

Lkt * m«*T3»FNF5k t  t  m<7, Mot i on)*FNFmnt i m<7, L*ng) 

Lkf u*l -Lkt i »**Mful rt  <4) 

LI  799:  SUBEXIT  v 

j 

!  13.  WORK  EQUIPMENT  GROUP 

j 

LI 3:  DATA  0.  ,  92.  ,  9 1 .  ,  0 .  ,  93.  ,  94 .  ,  0.  ,  0.  ,  0.  ,  0 .  ,  0.  ,  0 .  ,  0,  ,  0,  ,  0.  ,  l ,  ,  0 .  ,  0. 

DATA  3. , 1. ,9. , 3 . ,  0  • ,0. ,0. , 1* ,8. ,0*  >0*  >0*  >0*  ? I  * , 0  • , 0- ,0*  ,  0 « 

RESTORE  LI 3 
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8495 

3590 

8503 

3510 

3513 

3520 

3523 

3333 

8533 

3540 

3343 

3530 

8353 

3560 

8363 

8370 

8573 

3530 

8383 

8590 

8593 

8600 

8603 

8610 

8613 

8620 

3625 

3630 

8635 

8640 

8643 

8630 

8633 

8660 

3663 

8670 

8673 

8680 

8685 

8690 

3693 

3780 

3703 

3710 

8713 

8720 

8723 

8730 

3733 

8740 

8745 

3730 

3733 

8768 

9763 

3770 

8773 

8788 

9785 

8799 
3795 

8800 
8803 
3310 
8315 
3820 


MBT  READ  Gpl3pb 

Gpl3pb< 1 , 25*Gpdat2< I row, 2 5 

Gpl3pb< 1 , 35*Gpdat2< Irow, 1) 

Gp 13pb< 1, 35»Gpdat2< I row, 3) 

Gp 18pb< 1 , 65  *Gpdat 2< Irow, 45 
Lkprob*Gpl3pb<Nod*l , Nod*25 
IF  Lkprob»0  THEN  SUBEXIT 
L18123IF  <Nod*l<  >1 >  OR  <Nod*2<>25  THEN  L1813 
T4*Gpd*t2< Irow, 35 
Lkt i m*«T4*FNFsk t i m<6, Mot i on 5 
Lkf u* 1 »Lk  t 1  m**Mf u I rt  <  4  5 
SUBEXIT 

L1813SIF  <Nod*l<  >1 5  OR  <Nod*2<>35  THEN  L1815 
Tl»Gpdat 2< Irow, 35 

Lkt i  t»*»T 1 *FNFsk t im<7,Motion>*FNFmntim<7,L#ng) 

Lkfuel -Lkt i m**Mfu 1 rt  <45 

SUBEXIT 

L1313: IF  <Nodel<  >15  OR  <Nod*2<>35  THEN  L1816 
T5*Gpd*t2< Irow, 95 

Lkt i i»*«T5*FNFsk t i m<7, Mot i on5*FNFmnt i m<7, L*ng5 

Lkf u* 1 *Lkt  i «**Mful rt <45 

SUBEXIT 

L1816: IF  <Nod*t<>!5  OR  <Nod*2<>65  THEN  L1834 
T6*Gpd*t 2< Irow, 105 

Lkt i »**T6*FNFsk t ir»<7,Motion5*FNFmntim<7,Leng5 

Lkfu*1  -Lkt  i  «**Mful rt  <45 

SUBEXIT 

LI  834 : IF  <Nod*l<  >3)  OR  <Nod#2<>45  THEM  L1342 
T2*Gpdat 2< Irow, 65 
Lk t i m**T2 

Lk  f u*l *Lkt i me*Mfu I rt  <45 
SUBEXIT 

L1842:  IF  ( Node  1  <  >4  5  OR  <Nod*2<>25  THEN  H899 
T3»Gpd*t 2< Irow, 75  ■ 

Lk  t i m*«T3*FNFsk  t i m<  7, Mot i on)*FNFmnt i m<  7 , L*ng5 
Lkfu#l »Lkt im**Mfulrt <45 
L1899; SUBEXIT 


!  98,  SAR  SEARCH  GROUP 
!  FAILURE 

L90:  DATA  0,  ,  0.  ,  91 .  ,  92.  ,  0.  ,  0,  ,  0.  ,  a.  ,  0.  ,  0.  ,  0.  ,  0.  ,  8.  ,  0.  ,  0. 

DATA  0, ,0, ,0. ,0,,0,,0, ,0, ,917, ,0, |0» , 0. >0. ,  0  • i ^ • , 0 * 
DATA  0* , 0. , 0, , 0. , 0. ,0. , 0. ,0. , 0, ,0. ,0. ,0. ,0,,0,,0,|0 
DATA  0, ,3*  »  0  •  >3. , 3, ,0. >0*  ,  0  •  >0*  >0*  ,  0  •  ,  0  • , 0 • y0. >0*  y  0 
DATA  0, ,0. ,0. ,8, ,0. ,0, ,0, ,0, , 0, 

RESTORE  L90 

MAT  READ  Gp90pb 

Gp90pb< 1 , 3  5  *Gpdat 2< Irow, 1 5 

Gp90pb< 1 , 45»Gpd*t  2< Irow, 25 

Swl*Gpd*t2< Irow, 35 

Al*Gpd*t 2< Irow, 45 

Ns#*r 1 »Gpdat2< Irow, 55 

Cf  i*G«3d*t  2<  Irow,  65 

Ta>*xl»Gpdat  2<  Irow,  75 

Sw2*Gpd*t 2< Irow, 35 

A2*Gcd*t2< Irow, 95 


0  •  ,  0  •  ,  0 
0. ,927. 
,  0.  , 0. 
,0. ,0. 


0. 


Ns**r2*Gpdat 2< Irow,  105 
Cf2*Gpdat2< Irow, 115 
T***2»Gpd*t 2< Irow,  125 

CALL  Fsp*du<Sp**a<*5 , 3wl , A1 , Ns*ar t ,Cf 1 , T maxi , Psl , Pf 1 , Tsl , Tf 1 5 
CALL  Fsp*du<Sp**d<*5 , Sw2, A2, Ns**r 2, Cf 2, T«i*x2, P»2, Pf 2, Ts2, Tf25 
Gp90pb<3, 95*Pf 1 
Gp90pb<  4 , 9  >  »Pf  2 
Lkprob*Gp90pb<Ncd* 1 , Nod* 2 5 
IF  Lkprob*0  THEN  SUBEXIT 
L9839:  IF  < Nog* 1 <  >3 5  OR  <Node2<>95  THEN  L9849 
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3823 

3338 

3333 


Lkt i me*T  f 1 

Lk  f ue ! -Lk  t i me*Mf u 1 rt < 3> 
SUBEXIT 


3840  L3349 : I F  (Nod*l<>4>  OR  (Node2<>9>  THEN  L9099 
3843  Lktime-Tf2 

3830  Lkf ue 1 *Lkt i m**Mf ul rt <3) 

3833  L9099: SUBEXIT 
3880 

93 .  SENSOR  SEARCH  GROUP 

THIS  GROUP  MUST  ALWAYS  FOLLOW  A  STEAM  GROUP 
FAILURE 


3883 
3870 
3873 
3388 
8885  L93: 
3890 
8893 
8900 
8903 
8910 
3913 
8920 
8923 
8930 
8935 
8940 
8943 


MAT  Gp93pb»ZER 
Gp93pb  (1,9) *97 
Sw»Gpd*i2< Irow,  1 ) 

E-Gpd*t 2( I row,  2) 

Vt *r«Gpd*t2< I row, 3) 
T»*x-Gpd*t 2< I  row,  4) 
Tbef-FNFprut «<  0> 

GOSUB  Fsshp 
Gp93pb<l,9)-Pf 
Lkprob«Gp93pb  C  Node 1 , Node2> 
IF  Lkprob-0  THEN  SUBEXIT 
Lkt 1 «e-Tf 

Lkf uel -Lkt i f»e*Mf  ulrt  <2> 


8950  L9399S SUBEND 
8933  i 
8980  !  FTASK 

8983  1 

3970 
8973 
8980 
8983 
8990 
8993 
9000 
9005 
9910 
9013 


SUB  Ft  ask  < INTEGER  Group, REAL  Model, Node2, INTEGER  Taskno,Rate> 

OPTION  BASE  1 

DIM  Gpltk<7,7),Gp2tk<3,3), Gp3t k  <4,4>,Gp4tkC3,3) 

DIM  Gp5tk<6,6),Gp6tk<3,3),Gp7tk<3,3>,Gp8tk<3,3> 

DIM  Gp9tk<4, 4) , Gpi0t k <4, 4> , Gpl Itk <2, 2) , Gpl2tk <3, 3) 

DIM  Gpl3tk<2,2>?Gpl4tk<2,2),Gpl3tk<4t4>,Gpl6tk<3,3> 

DIM  Gpl7tk<4,4),Gpl8tk<6,6),Gp90tk<9,9),Gp93tkC9,9> 

IF  Group-98  THEN  Lt90 
IF  Group-93  THEN  Lt93 

ON  Group  GOTO  Lt 1 , Lt 2, Lt3, Lt4, Lt3, Lt 8, Lt 7, Lt8, Lt9, Lt 10, Lt 11 , Lt 12, Lt 1 


3,Ltl4,Lt 13, Ltl8, Lt 17, Lt 13 


9020  1 

9023  ! 

9030  ! 

9033  Lt 1 
9040 
9043 
9030 
9055 
9080 
9063 
9070 
9073 
9080 
9083 
9890  Lt2: 
9093 
9130 
9103 
9110 
9113 
9120 
9123 
9130 
9133  Lt3: 
9140 
9143 


1.  ASSIST  GROUP 

:  DATA  0,404,401,0,414,408,0,0,3,0,0,0,0,0,0,0,0,411,0,0,0 

DATA  0,413,0,0,0,0,0,3,0,0,0,0,0,0 
DATA  8,0,0,0,0,0,411,0,416,0,0,3,0,0 
RESTORE  Lt 1 
MAT  READ  Gpltk 
Rate-Cpltk  (Model , Nod*2)^108 
T*skno*Gpltk  < Node I , Node2)-R*t  e* 1 03 
SUBEXIT 

2,  ESCORT  GROUP 

DATA  0,332,201,0,0,0,0,0,0 

RESTORE  Lt 2 

MAT  READ  Gp2tk 

R*te-Gp2tk (Model , Mode2)/100 

T*skro-Gp2tk (Model , Node2>-R*t e*108 

SUBEXIT 

3,  FIGHT  FIRE  GROUP 

DATA  3 , 402 , 401 ,0,0,0, 0,0,0, 0,0, 403,0, 413, 0,0 
RESTORE  Lt 3 
MAT  READ  Gp3tk 
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9130 

9135 

9lo0 

9163 

9170 

9173 

9139 

9135 

9190 

9193 

9200 

9205 

9210 

9215 

9220 

9223 

9230 

9235 

9240 

9243 

9230 

9233 

9260 

9263 

9270 

9273 

9280 

9283 

9290 

9293 

9300 

9305 

9310 

9313 

9320 

9323 

9330 

9335 

9340 

9345 

9350 

9335 

9360 

9363 

9370 

9375 

9380 

9385 

9390 

9395 

9400 

9405 

9410 

9413 

9429 
9423 

9430 
9433 
9440 
9443 
9450 
9433 
9466 
9465 
9470 
9475 


Rat  *-Gp3t k (Node 1 , Mod* 2) / 100 
Taskno»Gp3t k <No d* 1 , Node 2 ) -Rat e*103 
SUBEXIT 


i  4.  IDENTIFY  GROUP 

! 

Lt 4:  DATR  9,203,202,3,0,8,0,0,0 

RESTORE  Lt4 
MAT  RERD  Gp4tk 
Rate«Gp4tk  < Model, Node2)/100 
Taskno*Cp4tk  < Model , Node2>-Rat **103 
SUBEXIT 


3.  INSPECT  GROUP 


Lt3S 


i  6. 

j 

Lt6: 


!  7. 


L17S 


! 


j 

Lt8: 


DRTR  0,3,408,0,401,0,0,0,0,0,0,0,0,8,0,403,0,0 

DRTR  0,416,0,3,0,0,0,0,0,0,0,403,0,413,0,0,0,0 

RESTORE  Lt 3 

MAT  RERD  Gp5tk 

Rat  e«Gp3t  k  <  Node  l,Node2>/' 100 

Taskno«Gp5t k  CNodel , Node2)-Rat e*100 

SUBEXIT 

MONITOR  GROUP 

DRTR  0,409,410,412,417,0,0,0,0,0,0,9,0,0,0,0,0,0,0,0,0,0,0,0,0 

RESTORE  Lt  6 

MRT  RERD  Gp6tk 

Rate-Gp6tk<Nodel ,Nod»2)/130 

Taskno*Gp6tk  <Nodel , Node2>-Rat e*133 

SUBEXIT 

PATROL  GROUP 

DRTR  0,304,204,0,0,0,3,0,0 

RESTORE  Lt  7 

MAT  RERD  Cp7tk 

Rate-Gp7tk  < Node l,Node2)/ 100 

Ta*kno*Gp7t k  < Node l , Node2)-Rat  e»100 

SUBEXIT 

RESCUE  GROUP 

DRTR  0,413,414,3,0,0,3,0,0 
RESTORE  Lt 3 
MRT  RERD  Gp8tk 
Rate-Cp8tk<Nodel,Nod*2>/'i08 
Taskno«Gp8tk  <Nodel , Node2)-Rat e*100 
SUBEXIT 


9.  RESCUE  RETURN  GROUP 


Lt9l  DRTR  0, 303,332,208,0,0,0,0,8,0,0,0,0,0,0,3 
RESTORE  Lt 9 
‘MRT  RERD  Gp9tk 
Rate*Gp9tk  <Nodei ,  Nod*2>/'t00 
Taskno»Gp9tk  <Nodel , Node2)-Rate*l30 
SUBEXIT 


«  10.  SRR  SEARCH  GROUP 
!  SUCCESS 

Ltl9:  DRTR  0,0,0,0,3,0,0,0,0,303,0,0,0,301,0,0 

RESTORE  Lt 1 0 
MRT  RERD  Gpl0tk 
Rate«Gol8tk  < Node l , Node2)^100 
Ta*kno*Gpl0tk  Node  1 , Node2)-Rat e* 130 
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SUBEXIT 


vU 
4:33 

9493  '  It.  SEARCH  FLEET  CROUP 

9493  ! 


9300 

9303 

9310 

9313 

9320 

9323 

9330 

9333 

9340 

9343 

9330 

9333 

9360 

9363 

9570 

9373 

9588 

9383 

9390 

9395 

9600 

9605 

9610 

9613 

9620 

9625 

9630 

9633 

9640 

9645 

9630 

9633 

9660 

9663 

9670 

9673 

9680 

9683 

9690 

9633 

9700 

9703 

9710 

9713 

9720 

9723 

9738 

9735 

9740 

9743 

9730 

9733 

9769 

9763 

9778 

9773 

9783 

9785 

9790 

9793 

9800 

9803 


Ltil:  BATA  0,203,3,0 

RESTORE  Ltil 
MAT  READ  Gplltk 
Rat e*Gpl It  k (Nodel , Nod*2)/ 130 
Taskno«Gpl ltk(Nodel, Node2>-Rat **100 
SUBEXIT 

i 

!  12.  SEIZE  GROUP 

! 

Ltl2:  DATA  0,0,418,8,0,3,0,201,0 

RESTORE  Lt 12 
MAT  READ  GpUtk 
Rat e«Gp l 2tk( Node l ,Node2)/l00 
T**kno*Gp  12tk  (Nodel ,  Node2> -Rat  e*  100 
SUBEXIT 

! 

!  13.  SENSOR  SEARCH  GROUP 

!  SUCCESS 

Ltl3:  DATA  0,206,0,0 

RESTORE  Lt 1 3 
MAT  READ  Gpl3tk 
Rate*Cpl3tk  (Nodel , Nod«2>^100 
Taskno»Gpl3tk  (Model , Node2>-Rate*l00 
SUBEXIT 

j 

!  14.  STANDBY  GROUP 

i 

Ltl4!  DATA  0,407,0,0 
RESTORE  Lt 1 4 
MAT  READ  Gpl4tk 
Rat e«Gpi4tk( Node  1 ,Node2>/ 100 
Taskno»Gpi4tk (Model , Node2> -Rat e* 1 00 
SUBEXIT 

! 

!  13.  STEAM  GROUP 

i 

Lt 13:  DATA  0,209,101,102,0,0,0,0,0,0,0,0,0,3,3,0 

RESTORE  Lt 1 3 
MAT  READ  Gpl3tk 
Rat e«Gp l 3tk< Node t , Node2>/ 130 
Taskno*Gp 13tk (Nodel , Node2) -Rat e+ 1 00 
SUBEXIT 

j 

!  16.  TRANSFER  EQUIPMENT  GROUP 

i 

Lt 16:  DATA  0,406,420,3,0,0,0,0,0 

RESTORE  Lt 1 6 
MAT  READ  Gpl6tk 
Rat e-Gp!6tk  (Model  ,Node2:>/ 100 
Taskno»Gpl6tk (Node! , Node 2) -Rat e+ 1 00 
SUBEXIT 

i 

!  17.  TRANSPORT  EQUIPMENT  GROUP 

i 

Lt 17:  DATA  0,207, 406,3,0,0.0,0,0,0,0,207,3,420,3,3 

RESTORE  Lt 1 7 
MAT  READ  Gpl7tk 
Rat *«Gpl7tk  (Nodel ,  Node2>/  100 
Taskno*Gp 1 7t < (Nodel , Node2)-Rat e+180 
SUBEXIT 

I 

?  18.  WORK  EQUIPMENT  GROUP 
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! 


I 


3319  ! 

9813  Ltl3: 
3820 
3825 
3830 
3833 
3840 
9843 
9830 
9833 
9860 
9863  Lt90: 
9870 
9873 
9880 
9883 
9890 
9893 
9900 
9903 
9910 
9913  Lt  93 
9920 
9923 
9930 
9933 

9940  ! 

9945 
9930 
9933 
9960 
9963 
9970 
9973 
9980 
9983 
9990 
9993 
10000 
10005 
10010 
10015 
10020 
10025 
10030 
10035 
10040 
10045 
10050 
10033 
10060 
10063 
10070 
10073 
10090 
10033 
10090 
10093 
10100 
10103 
10110 
10115 

1012G  Lf»20: 
10123 
10130  ! 

10133 


DATA  8,422, 403,0,419,423,0,0,0, 0,0,0,0,0,0,421,0,0 
DATA  0,416,0,0,0,0,0,0,0,0,0,0,0,0,9*00 
RESTORE  Lt 1 3 

R*t**Gpl8tk  < Model , Nod*2>/100 
Tiskno*Gpl3tk  <Nod«l , Nod«2)-Rat**l00 
SUBEXIT 

90.  SAR  SEARCH  GROUP 
FAILURE 

MAT  Gp90tk*ZER 
Gp90tk<3,9)*303 
Gp90t  k  <  4 , 9 ) *304 
R*t*-Gp90tk < Node l,Node2>/ 100 
T*skno*Gp90tk  <Nodel , Node2> -Rate* 100 
SUBEXIT 

93.  SENSOR  SEARCH  GROUP 
FAILURE 

MAT  Gp93tk»ZER 
Gp93t  k  <  9 , l)-206 
R*te*Gp93tk  < Model , NodeS)/ 100 
Task no*Gp93t k  (Nodel ,  Node2)-Ra,t  e*100 
SUBEND 


!  FMINPH 


FINDS  THE  MINIMUM  TIME  AND  FUEL  PATHS  FROM  ANY  OVERALL  NODE  TO 
THE  END  OF  THE  SCENARIO 

SUB  FminphCN, SHORT  Ovcnnx(*) , Gppl mx<*> , Ml nt 1 m<*) , Ml nf ue<»> ) 
OPTION  BASE  1 

SHORT  Gpmnt  <30, 30) ,Gpmnf <30,30) , FI *g<30> , FI agnw<30> 

INTEGER  Group, Inst , FI *gnw, Ag*i n, I, J,K 

INITIALIZATION 

FOR  1*1  TO  N 
Mint  i  *<  0*99999 
M i nf uc  < I >*99999 
FI *g< I ) *9 
FI *gnw< I ) *0 
FOR  J*l  TO  N 
Gpmnt  < I , J) *0 
Gpmnf  <  I , J)*0 
NEXT  J 
NEXT  I 
Ag*i n*0 

FIND  THE  MINIMUM  GROUP  TIME  PATH  AND  FUEL  PATH  FOR  ALL  LINKS 

FOR  1*1  TO  N 
FOR  J*t  TO  N 
K*Gpp I mx< I , J) 

Group**/ 100 

Inst *K-Croup* 100 

IF  Group*0  THEN  L»20 

CALL  Fgpml n<T, F, Group, Inst ) 

Gpmnt  < I , J )»T 
Gpmnf < I, J)*F 
NEXT  J 
NEXT  I 


FINDS  THE  MINIMUM  PATH  WITH  RESPECT  TO  TIME 
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10143 
10143 
10130 
10133 
10160 
10163 
10170 
10173 
10130 
10185 
10190 
10195 
10200 
10205 
10210 
10213 
10220 
10225 
10230 
10233 
10240 
10245 
10250 
10233 
10260 
10265 
10270 
10275 
10280 
10283 
10290 
10295 
10300 
10305 
10310 
10315 
18320 
10325 
10330 
10335 
10340 
10345 
10350 
10333 
10360 
10365 
10370 
10375 
10330 
10383 
10390 
10393 
10400 
10403 
10410 
10415 
10420 
3, Lgi 4 
10425 
10430 
10435 
10440 
10445 
10430 
10453 
10460 


M i nt i m<  2) *0 
FI *g<2>*t 

Lm39 :  FOR  J*t  TO  N 

IF  F1*g<J>*0  THEN  Lm50 
FOR  1*1  TO  N 

IF  Oucnnx( I , J>*0  THEN  Lm40 
Tp*th*Gpmnt 

IF  Tp*th>Mintim<I>  THEN  Lm40 
Mi nt i «< I >*Tp*th 
FI  *gnw<  D»l 
fig*i n*  1 
Lm40 :  NEXT  I 
L»30:  NEXT  J 

FOR  1*1  TO  N 
FI *g< 1>*F1 *gnw< I ) 

FI  agnu<  0*0 
Lm60 !  NEXT  1 

IF  fig*in*0  THEN  Lml00 
Rg*i n*0 
GOTO  Lm30 

FINDS  THE  MINIMUM  PHTH  WITH  RESPECT  TO  FUEL 

L»100:Minfu#<2)*8 
F 1  <  2  )  *  1 

La  110! FOR  J»1  TO  N 

IF  FUg<J)«0  THEN  Lml33 
FOR  1*1  TO  N 

IF  OucnaxCI,  0*0  THEN  L»120 
Fp*t h*Gpronf < I , J> +M i nf u*<J> 

IF  Fp*th>rtinfut<I>  THEN  Lml20 
M1nfut< O-Fpath 
FI  *gnw<  0*1 
flgai n* 1 

l*120:next  r 

Lm 1 30 : NEXT  J 

IF  fig*in-0  THEN  L»200 

Rg*i n*0 

FOR  1*1  TO  N 

F 1 *g<  O  *F1 agnw< I > 

FI  *gnw<  0*0 
NEXT  I 
GOTO  Lai  10 
Lm200: SUBEX I T 

FGPMIN 

COMPUTES  THE  SHORTEST  PATH  THROUGH  ft  GROUP 
FOR  TIME  PHD  FUEL  CONSUMPTION 

SUB  Fgprai n<Mi nt i m, Mi nfu#, INTEGER  Group,Ir>st) 

Mi nt i n*99999 
Mi  nf  u<r«99999 
IF  Grouo-90  THEN  Lg90 
IF  Group»93  THEN  Lg93 

ON  Group  GOTO  Lgi , Lg2, Lg3, Lg4, Lg5, Lg6 , Lg7 , Lg8 , Lg9, Lgl 0 , Lg 1 1 , Lg 1 2 , Lg 1 
,Lgl3,Lg:6,Lgl7,Lgl3, Lg90,Lg93 

1.  ASSIST  GROUP 

Lgl:  CALL  FI  tGr oup ,  I  nat ,  J ,  2,  Pi  £+ 7  i  £  >  F  l  ZJ 

CPLL  "HflufCreuB,  I  nit ,  i  *  J ,  F13,  T\ 3,  F 1 3  J 
CELL  Flkdv  <  Group.  I  nit,  I,  3  T  F 1 3  T  T  i  g ,  F 1 3 1 
CALL  FlhCit : jroup,  I  nit  „  L  +6TP16T 716. r lb) 

CALL  Flif  '  Group,  I n 1 1  *  ,3 ,  4,  T34,  FS-O 


\ 
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1 0465 
10470 
10475 
10430 
10485 
10490 
10495 
10500 
10505 
10510 
10515 
10520 
10525 
10530 
10535 
10540 
10545  ! 

10550  I  2. 


CALL  Flkdat03ro.JP,  Inst , 4, 2, P42, T42, F42> 

CALL  F1kdat<Group,Inst,o,7,P  7,T  7 
CALL  FI kdat (Group, Inst , 7,4, r 
T  1342*T  13+‘T34  +  T42 

F1342-F13+F34+F42 

s  £3:  ss  stssssi.risj’ss^**" 

SUBEXIT 


10555  I 
10560  L<j2: 
10565 
10570 
10575 
10580 
10585 
10590 
10595 
10600 
10605 

10610  Lg3: 
10615 
10620 
10625 
18630 
10635 
10640 
10645 
10650 
10655 
10660 
10665  I 
10678  I  4. 
10675  I 
10680  Lg4! 
10685 
10690 
10695 
10700 
10705 
10710 
10715  I 
10720  I  5 
10725  ! 

10730  Lg5: 
10735 
10740 
10745 
10750 
10755 
10760 
10765 
10770 
10775 
10780 
10735 
10798 


escort  group 


CALL  Flkdat (Group, Inst, 1, 2, P12, T12, F12> 
CALL  _  F  1«  £2!  li  ’  THEM  M«  nt  1  - 


up i  In»t  7  _T1-> 

fiHB  <Tl2<H1nt  i  »>  THEN  llintim 
AND  <T*13<M1nti»>  THEM  Mintim- 

5  SSSi ««  SSKSSi  SS  SSS5S 

SUBEXIT 


IF  <P12>0> 
IF  <P13>0> 
IF  <P12>0> 


3.  FIGHT  FIRE  GROUP 

CALL  F1kdat<Group,Inst,l,2,P12,T12,F12) 

CALL  FI kdat  (Group, Inftt  ’  i’ ’  T34  F34> 

CALL  Flkdat  (Group,  lr'*x  'Z’  '  p42’  T42’  F42> 

CALL  F1kd*t <Group# Inst, 4,2, r42, 

ssiis 

SUBEXIT 

IDENTIFY  GROUP 

1 16  s  s  s  523s 

SUBEXIT 
INSPECT  GROUP 

CALL  Flkd*t<Group,Inst,l,3,Pt3,T13,F13> 

CALL  Flkd*t<Group,  P*t,l,5,P13,T13 
CALL  F1kd*t<Group,Inst,3,4,P-  ,  *  42) 

CALL  FlkdatCGrcup, Inst ,4, 2, P  ,  * 

CALL  FI kdat  <Group,  Inst ,  5,  S.P36, 

CALL  Flkdat<Group, Inst, 6,2, P62, 

T1342«T13*T34+T42 

TF5fpi3l>HTANDTai342<riinti»)  THEN  Ml  nt  i -T1342 
55  <;U>S>  AN?  CT1562<M1  nt  i  t»>  THEN  Hi  nt , -T136. 
F1342-F13+F34+F42 

IF3tpi3>ltFANftF1342<«infu.)  THEN  ni  m'u.-F  1342 
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10733 
10300 
10305 
10310 
10813 
10320 
10823 
10330 
10833 
10840 
10845 
10850 
10833 
10360 
10865 
10370 
10873 
10383 
10885 
10830 
10893 
10900 
10905 
10910 
10913 
10920 
10923 
10930 
10933 
10940 
10943 
10930 
10933 
10960 
10963 
10970 
10973 
10980 
10983 
10990 
10993 
11008 
11085 
11010 
11015 
11020 
11023 
11030 
11035 
11040 
11043 
11058 
11033 
11060 
11065 
11970 
11873 
11080 
1 1083 
11398 
11093 
11100 
11193 
11110 
11113 
1 1 120 


IF  <P13>8)  PHD  <F1362<Mi nfu*>  THEN  Minfu**F136 
3UBEXIT 

6.  MONITOR  GROUP 


Lg6: 


CALL  Flkdat 
CALL  Flkdat 
CALL  Flkdat 
CALL  Flkdat 
IF  CP12>3) 
(P13>8> 

( P 1 4  >0  ) 
<P13>0) 
<P12>8) 
IF  <P13>0) 
IF  <P14>0) 
IF  <P13>0> 
SUBEXIT 


IF 

IF 

IF 

IF 


(Group, Inst 
(Group, Inst 
(Group,  Inst 
(Group, Inst 
AND  <T12<Mi 
AND  <  T 1 3  <  M  i 
AND  (T14CM1 
AND  ( T 1 3< M i 
AND  < F 1 2< M 1 
AND  <F13<Mi 
AND  <Fl4<Mi 
AND  <Fl3<Mi 


,1,3, 
>1*4, 
,1,3, 
nt  i  m) 
nt  i  m) 
mim) 
nt  i») 
nf  u*> 
nfuf  ) 
nf  ut  > 
nf  u*  ) 


P 1 2 ,  T 1 
Pl3,Tt 
P 1 4, T 1 
P 1 3, T 1 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


2 ,  F 1 2) 

3 ,  F 1 3  > 

4, F14) 

3, F 13) 

Mi  nt i m»T  12 
Minti  ra*T  1 3 
Ml  nt i «*T1 4 
Mi nt i m*T 13 
Mi nf  u**F12 
Mi nf u»*F l 3 
Mi nf u«*F14 
Mi nf u#*F13 


7.  PATROL  GROUP 


Lg7:  CALL  FI kdat (Group, Inst , 1 , 2, P12, T12, F12) 

CALL  Flkdat (Group, Inst, 1 , 3, P13, T 13, F13> 

IF  <P12>0>  AND  <Tl2<Mi nt i m)  THEN  Mintim»T12 
IF  <P13>0)  AND  ( T13<Mi nt i m)  THEN  Mintim*T13 
IF  <P12>0)  AND  <F12<Mi nf ue)  THEN  Minfu#«Fl2 
IF  <P13>0)  AND  < F 13< Mi nfut )  THEN  Minfu**F13 
SUBEXIT 

i 

!  3.  RESCUE  GROUP 


Lg8:  CALL  FI kdat (Group, Inst , 1 , 2, P12, T12, F12> 

CALL  FI kdat (Group, Inst, l,3,P!3,Tl3fFl3> 

IF  <P12>0)  AND  <T12<Mi nt i m)  THEN  Mintim*Tl2 
IF  <P13>0>  AND  ( T 1 3< Mi  nt  i  m )  THEN  Mintira*T13 
IF  (P12>0>  AND  <F12<Mi nfu#)  THEN  Minfu#*Ft2 
IF  (P13  >0  >  AND  < F 1 3< Mi nf u« >  THEN  Minfu*«F13 
SUBEXIT 


9*  RESCUE  RETURN  GROUP 


Lg9: 


CALL  FI kdat (Group, Inst, 1 , 2, P12, T12, F12) 
CALL  FI kdat (Group, Inst, t , 3, P13, T13, F13> 
CALL  FI kdat (Group, Inst ,1,4,P14,T14,F14) 


IF  <P12>0>  AND  ( T 1 2< M i nt i m )  THEN 
IF  (P13>0>  AND  ( T13<Mi nt i m)  THEN 
IF  (P 1 4 >8)  AND  (T14<Mi nt i »)  THEN 
IF  C P 1 2 > 8 )  AND  <F12<Mi nfut)  THEN 
IF  <P13>0)  RND  (F13<Mi nf u*)  THEN 
IF  ( P 1 4 >0 )  AND  <Fl4<M1nfu«)  THEN 
SUBEXIT 


Mint i m-T12 
Mint im-Tl3 
M i nt i m*T 1 4 
Minfu*«F12 
Minfuc-F13 
Mi nf u#*F 1 4 


10,  SAR  SEARCH  GROUP 
SUCCESS 


Lgie:  CALL  FU  dat  (Group,  Inst  ,3,2,  P32,  T32,  F32) 

CAL^  F II  kdat  (Group,  Inst ,  4,2,P42,  T42,F42) 

IF  (P32>0)  AND  ( T32< Mi nt i m)  THEN  Mintim»T32 
IF  P42>0)  AND  <T42<Minti«)  THEN  M1ntim«T42 
IF  (*32>0>  AND  < F32< Mi nf ue)  THEN  Minfu#-F32 
IF  v^42>0)  AND  ( F42< Mi nf  u* )  THEN  Minfu**F42 
SUBEXIT 


11.  SEARCH  FLEET  GROUP 


Lgl 1 :  CAL;.  Flkdat (Group, Inst, 1,2, P12,T12,F12) 


D-34 


11123 

11133 

11133 

11140 

i 

11143 

!  12. 

11130 

! 

11133 

11160 

11163 

11173 

11173 

11130 

11183 

1 1 190 
11193 

Lgl2: 

11200 

i 

11205 

!  13. 

11210 

\  SU< 

11213 

L 

11220 
11223 
_  11230 
>1233 

Lgl3: 

11240 

! 

11243 

!  14, 

11250 

! 

11233 

11260 

11263 

11270 

Lg  1 4: 

11273 

! 

11280 

!  13, 

11283 

; 

11290 

11293 

11300 

LglS: 

11303 

11310 

11313 

11320 

11323 

11330 

11333 

11340 

i 

11343 

i  16 

11330 

! 

11333 

11360 

11363 

11370 

11373 

11380 

11385 

Lgl6! 

11390 

i 

11393 

!  17 

11400 

1 

11403 

11410 

11413 

11420 

11423 

11430 

11433 

11440 

1  1445 
11430 

Lgl75 

IF  <  P 1 2>9  >  AND  ( T 1 2<  M  i  nt  i  m )  THEN  Mir.tim*Ti2 
IF  <P12>0>  RND  (Ft2<Minfu*>  THEN  Minfu*»F12 
SUBEXIT 

12.  SEIZE  GROUP 


CRLL  FI kd*t (Group, Inst , 3, 2, P32, T32, F32> 

T132*T13+T32 

P132«P13*P32 

IF  <P132>0)  RND  <T132<Mi  ntim)  THEN  Mintim-T132 

F 132*F 13+F32 

P132*P13*P32 

IF  <P132>0>  AND  (F132<Minfu«>  THEN  Minfu**F132 
SUBEXIT 


SENSOR  SEARCH  GROUP 


IF  <P12>0>  RND  (T12<Mint  in)  THEN  Minti»-Tl2 
IF  <P 12>0)  AND  (F12<M1nfu#>  THEN  Mfnfu*-Fl2 
SUBEXIT 


IF  (P12>0>  RND  <Tl2<Mintim>  THEN  Mintim-T12 
IF  < P 12>0)  AND  <F12<Minfu«>  THEN  Minfu#-Fl2 
SUBEXIT 


!  13.  STEAM  GROUP 


CALL  Flkd*t 
CALL  Flkd*t 
CALL  FI k d*t 
IF  <P12>0) 
IF  (P13>0) 
IF  <P14>0) 
IF  <P 1 2 >0) 
IF  <P13>0) 
IF  <P14>0) 
SUBEXIT 


(Group, Inst, 1,2,P12,T12,F12> 
(Group, Inst ,i,3,P13,T13,F13) 
(Group, Inst, 1 , 4, P14, T14, F14) 


AND 

AND 

AND 

AND 

AND 

AND 


<  T 12<  M 1 nt 1 m) 
<T13<M1nt im> 
(T14<Mint in) 

<  F 1 2<  M 1 nf u* ) 
<F13<M1nfu*> 
( F 1 4<  M 1 nf  u*  > 


THEN  Mi  nt  i m*T12 
THEN  Mi nt i m*T!3 
THEN  Mi nt i m*T l 4 
THEN  Mi nf u*«F 1 2 
THEN  Mi nf ue*F 13 
THEN  M i nf ue*F 1 4 


TRANSFER  EQUIPMENT  GROUP 

CALL  FI kd*t (Group, Inst, 1 # 2, P12, T12, F12) 

CALL  FI k dat (Group , Inst, 1,3,P13,T13,F13) 

IF  (P12>0>  AND  <T  12<Mi  nt  i  n»>  THEN  Mintim»T12 
IF  (P13>0)  AND  <T13<M1nt inO  THEN  Mintim«T13 
IF  (P12>0)  AND  <  F 12<  Mi nfu* )  THEN  Minfu*«F12 
IF  ( P 1 3 >0)  AND  (F !3<Mi nf  uc)  THEN  Minfu*-F13 
SUBEXIT 

TRANSPORT  EQUIPMENT  GROUP 

CALL  FI kd*t (Group, Inst, 1 , 2, P12, T12, F12> 

CALL  F 1 kd*t (Group, Inst , 1,3,P13,T13,F13) 

CALL  FI kd*t (Group, Inst , 3, 4, P34, T34, F34) 

CALL  FI kd*t (Group, Inst , 4, 2, P42,  T42,  F42> 
T?.342*T13  +  T34+T42 

IF  <P12>0)  AND  (T12<Mi  nt  *;  m)  THEN  Mintim»T12 
IF  (P13>6)  AND  (T!342<M<nt im)  THEN  Mi  nt  i  n**T  1342 
F 1 342*F  V3+F34+F42 

IF  <P12>0)  AND  ( F 1 2< M i nf u* )  THEN  Minfu*»Ft2 
IF  (P13>0)  AND  (Fl342<Minfu#)  THEN  Mi nf u*-F t 342 
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SUBEXIT 


11453 

11460 

11463 

11470 

11473 

11430 

11433 

11490 

11493 

11500 

11305 

11510 

11313 

11320 

11323 

11330 

11333 

11340 

11545 

11330 

11333 

11568 

11565 

11370 

11373 

11388 

11383 

11398 

11593 

11630 

11603 

11610 

11615 

11620 

11623 

11630 

11633 

11640 

11645 

11630 


i  13.  WORK  EQUIPMENT  GROUP 
! 

Lgl3:  CALL  FI kd*t  < Group, Inst , i,2,Pt2,T12,F12> 

CALL  FI  kd-at  (Group,  Inst,  1,3,P13,T13,F13> 

CALL  FI kdat (Group, Inst, 1,3,P13,T13,F13> 

CALL  FI k d*t  < Group , Inst , 1 , 6, PI 6, T16, F 16> 

CALL  FI kdat (Group, Inst ,3,4,P34,T34,F34) 

CALL  FI kd*t (Group, Inst , 4 , 2, P42 , T42, F42 > 
T1342-T13+T34+T42 

IF  (P12>0)  AND  <T12<Minti»>  THEN  Mintii»-T12 
IF  (P13>8)  AND  (T1342<MiniinO  THEN  Mi nt 1 m*T 1 342 
IF  <P13>0>  AND  (T  13<M1  m  im)  THEN  f1intim-T13 
IF  (PI 6>0 )  AND  (T16<Mintim>  THEN  Mintim«T16 
F 1 342  *F  1 3+F34+F42 

IF  (P 12>0 )  AND  <F12<Minfu«)  THEN  Minfu««F12 
IF  (P13>0)  AND  (F1342<M1 nfu#>  THEN  M1nfu*«F1342 
IF  (P13>0)  AND  (F 15<Mi nf u#)  THEN  M1nfu*»F13 
IF  (PI 6>0)  AND  (F16<Mi nfu#)  THEN  M1nfu#«Fl6 
SUBEXIT 

! 

!  90.  SAR  SEARCH  GROUP 
!  FAILURE 

j 

Lg90 :  CALL  FI kdat (Group, Inst , 3, 9, P39, T39, F39) 

CALL  FI kdat (Group, Inst,4,9,P49,T49,F49> 

IF  (P39>0)  AND  (T39<M1ntim)  THEN  Mintim«T39 
IF  (P49>0)  AND  (T49<Mint im>  THEN  Mintim«T49 
IF  (P39>0 )  AND  (F39<Mi nf  u« >  THEN  Minfu#»F39 
TF  ( P49 >8 )  AND  (F49<Minfu«>  THEN  Minfu*«F49 
SUBEXIT 

! 

!  93.  SENSOR  SEARCH  GROUP 
f  FRILURE 

i 

Lg93:  CALL  FI kd*t (Group, Inst , 1 , 9, P19, T19, F19) 

IF  (P19 >0 )  AND  (Tl9<Mintim)  THEN  Mintim*T19 
IF  (P 19 >0)  AND  (Fl9<Minfu«)  THEN  M1nfu«-F19 
SUBEND 


l 
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APPENDIX  E 


3 

10 

13 

20 

23 

30 

33 

36 

48 

45 

30 

33 

60 

63 

70 

73 

30 

35 

90 

95 

100 

103 

110. 

113 

120 

123 

130 

135 

140 

145 

150 

133 

160 

165 

170 

173 

176 

180 

195 

190 

193 

200 

205 

210 

213 

220 

223 

230 

233 

240 

245 

230 

233 

260 

265 

278 

273 

280 

283 

290 

293 

308 

305 

310 

313 

329 


PROGRAM  TO  CREATE  A  SCENARIO  DATA  FILE 
FOR  READING  IN  THE  CREE  PROGRAM  SEGMENT 
3PRPQ3 • 

OPTION  BASE  1 

DIM  A<  13)  ,  AU13),  B<23,20)  ,C<20,20>  ,D<20,20>  ,  Ax<20) 

INTEGER  T*«p 
PRINT  PAGE 

INPUT  “TYPE  NAME  OF  SCENARIO  FILE  ",S S 
CREATE  $S«,“:T14“,  1,25000 
ASSIGN  #1  TO  S*S.":T14" 

PRINT  PAGE 

INPUT  *  INPUT  NAME  OF  SCENARIO" , PS 
PRINT  #1 ; PS 
PRINT  PAGE 

INPUT  "INPUT  SCENARIO  NUMBER  ",Scenno 
PRINT  # 1 ; Sc t  nno 
PRINT  PAGE 

INPUT  "INPUT  MAXIMUM  TIME  ALLOWABLE  FOR  SORTIE  <HRS>  ",Mxtira* 
PRINT  *  l ;  Mxt  i  r»« 

PRINT  PAGE 

INPUT  "INPUT  RANGE  FRACTION  OF  TOTAL  FUEL  OPACITY" , Rangfr 
PRINT  #l;R*ngfr 
PRINT  PAGE 

INPUT  "INPUT  NUMBER  OF  DAYS  OF  OPERATION  ",Nd*ys 
PRINT  *1 ; Ndavs 
PRINT  PAGE 

INPUT  "INPUT  NUMBER  OF  IMPORTANT  TASKS  ",N»i»tk 

PRINT  #1 ; Nmi mtk 

FOR  1*1  TO  Naimtk 

PRINT  "INPUT  I; •  TASK  NUMBER" 

INPUT  Ax< I ) 

T*mp*Rx< I )^108-. 5 
A< I )*T«mp 

Al<I)*Ax(I)-A<I)*l00 

PRINT  "A  ";A<n;"  Aid)  ";ai<i> 

NEXT  I 

FOR  1*1  TO  6 
PRINT  it; A<I>, A1<I) 

NEXT  I 
PRINT  PAGE 

INPUT  "INPUT  NUMBER  OF  NODES  IN  FLOW  CHART" , Nnodov 
PRINT  HjNnodov 
PRINT  PAGE 

PRINT  "YOU  ARE  ABOUT  TO  ENTER  THE  GROUP-CONNECTION  MATRIX  " 

FOR  1*1  TO  Nnodou 

FOR  J*t  TO  Nnocou 

PRINT  "INPUT  ENTRY  ••  ;  I ;  "  , * ; J 

INPUT  B< I , J ) 

NEXT  J 

PRINT  “NEXT  ROW" 

NEXT  I 

FOR  1*1  TO  Nnodov 
FOR  J*l  TO  Nncdov 
PRINT  #1 ; B< I f  J) 

NEXT  J 
NEXT  I 
Iri ght *20 
Idown*NnodO'J 
PRINT  PAGE 

PRINT  "YOU  ARE  ABOUT  TO  ENTER  THE  GROUP  PLACEMENT  MATRIX" 

FOR  1*1  TO  Nnodou 
FOR  J*1  TO  Nnodov 
PRINT  "ENTRY  ";l;“,";j 
INPUT  C<I,J> 


E-l 


323 

330 

333 

340 

343 

330 

333 

350 

363 

370 

373 

380 

383 

390 

393 

400 

405 

410 

413 

420 

423 

430 

433 

440 

443 

430 

433 

460 

463 

470 


NEXT  J 
NEXT  I 

FOR  I*t  TO  7 
FOR  JM  TO  7 
PRINT  M;C<XVJ) 

NEXT  J 
NEXT  I 

PRINT  41 ; Ir i ght , I down  + 

PRINT  PAGE 

PRINT  -NOW  ENTER  THE  GROUP  DATA" 

FOR  1*1  TO  Nnodov 
FOR  J-l  TO  20 

PRINT  "ENTRY  v 

INPUT  D<I,J> 

NEXT  J 
NEXT  I 

FOR  1*1  TO  Nnodov 
FOR  J«1  TO  20 
PRINT  41 ; D< I , J) 

NEXT  J 
NEXT  I 
PRINT  PAGE 

INPUT  " INPUT  NUMBER  OF  PRINT  OUTS  DESIRED" , Nptout 
PRINT  41 ; Nptout 
PRINT  PAGE 

PRINT  -THAT  COMPLETES  THE  SCENARIO  INPUT* 

FI *g*l 

PRINT  4i;Fl*g 
ASSIGN  *  TO  41 
END 


1. 


E-2 


